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language, the Control System Design Language (CSDL) is 
translated into a list of primitives by a Pascal program, 
CSDL.PAS. The primitive list is then compiled into assembly 
language by a FORTRAN program, NEWCSDL.FOR. The final 
output includes the hardware and software lists to build a 
controller that meets the designer’s specifications. This 
particular project includes a project design much more 
ambitious than any previously attempted in the Control 


System Design Environment. 
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TL. INTRODUCTION 


The design of electonic equipment, including micro- 
processor-controlled equipment, has traditionally been a 
time and money consuming proposition. The design must be 
worked out manually and paper-tested, changes and 
improvements made, and more paper-testing performed. When 
it appears that the design is feasible, one or more 
prototypes are built and tested. Building prototypes 1s 
expensive because they are labor-intensive and fail toa 
benefit fram economies of scale. The use of computer aided 
design (CAD) has become more prevalent in many design 
applications in recent years because of these reasons. One 
such design aid is the Control System Design Environment 
proposed by Matelan ([Ref. 1] and implemented by Ross [Ref. 
es 

The Control System Design Environment makes use af the 
Control System Design Language (CSDL). This high-level 
language provides the user with a method to describe the 
inputs and outputs of a controller and specify time 
constraints for completion of the required tasks. A 
translator program takes the CSDL problem statement written 
by the user, tests the syntax, and then generates symbol and 


Variable tables. It also translates the CSDL statements 





into a format called the primitives list with the associated 
parameters and selection criteria. The primitives are used 
as macro calls to the realization libraries. These 
libraries are based on families of microprocessors. The 
Criginal library Built by Ress consisted solely of the Intel 
BOSO family. Recent additions to the realization libraries 
include the Zileg Z80 by Smith CRef. 3] and the Intel 8086 
by Cetel (CRef. 4]. 

4 family of microprocessors is chosen for the 
implementation by the designer and noted in the CSDL 
description. A solution is attempted and if it fails, 
ancther family is chosen and another solution is tried. If 
all families fail, the failure is reported ta the user. 
When there 1S a success, software 1s generated to support 
the hardware, and monitor cede is output for the overall 
control of the system. The automation of these functions 
makes it possible toa rapidly and inexpensively design, 
build, and test pretotypes. The ability to describe the 
fumctional specifications of a control process in a 
high-level language and let the CSDE provide output in form 
of hardware and software design can aqreatly simplify the 
work ainvoelved and thus lower the cost ocf producing working 
prototypes. 

The application of the Control System Design 
Environment (CSDE) ta the design of hardware and software 


for controller applications has been explored by a number of 





researchers since Ross first designed CSDL. Some of those 
who have contributed to CSDE include Carsen, Cetel, 
Heilstedt, Pollock, Riley, Sherlock, Smith, Walden, and 
Woffinden. Their accomplishments and contributions are all 
recorded in their respective theses. (Refe.5-13] 

The goal of this thesis is to attempt a validation of 
the Control System Design Environment. This will be 
accomplished by using CSDE to design a microprocessor-based 
data link receiver for the data link to be installed in the 
Coast Guard HH-6S5A helicopter. Since CSDE was designed to 
oproduce process controllers, the production of a data link 
receiver will demonstrate the flexibility of the Control 
System Design Environment to handle additional and more 
complex types of problem descriptions beyond those 
considered in the original design of CSDE. 

This project 1S a departure both in size and scope 
from any previous attempt at using the CSDE system. Several 
researchers have used CSDE to design controllers. Pollock 
used CSDE to design a ‘Ffrel aiunjection system for an 
automobile in 1981 CRef. 14]. Heilstedt designed digital 
filters using CSDE in 19835 (Ref 15]. The latest CSDE design 
1S an automatic start sequencer for a jet engine performed 
by Riley in 1984 CRef. 16]. The design of a micro- 
processor-based data link receiver is a much more ambitious 
application than any of these previous works. It requires 


the movement of strings of data throughout the system while 





watching for keyboard input from an operator. The goal of 
the project is concerned with the use and abilities of the 
CSDE and not with producing a working prototype of aeunit 
that will function according to Coast Guard requirements. 
The data link receiver will be ae subset of and not a 
complete implementation of the Coast Guard requirements'7 and 


specifications as outlined in the next chapter. 





II. DATA LINK RECEIVER SPECIFICATIONS 


Development of systems, including computer systems, 
can be costly due to the time and effort required to design, 
build, and test prototypes. The use of the Control System 
Design Environment can dramatically reduce the time and 
effort involved in designing a microprocessor system and in 
oroducing the associated software. The cost of a system is 
spread over the number of items produced, and in general, 
prototypes are produced in small, and thus expensive, 
quantities. The automation of the design of hardware and 
software promises to greatly reduce the cost of the design 
and prototyping portions af new systems development, 
especially those systems that will be produced in small 
numoers. 

An example of a system currently under development was 
chosen for an implementation under CSDE for this’ thesis. 
The U.S. Coast Guard is presently acquiring a new heli- 
copter, the HH-65A. One of the features of the aircraft 
avionics suite is a data link transceiver which will 
automatically send and receive flight information data. 
Unfortunately, there is no compatable transceiver available 
for use aboard Coast Guard cutters or at air stations. The 


potential contributions to a wide range of Coast Guard 
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missions, not to mention the safety of flight ramifications, 
make automated communications between Coast Guard 
operational units via data link extremely desirable. 

It is virtually impossible today for the U.S. Coast 
Guard to conduct truly covert law enforcement operations 
with helicopters deployed aboard cutters or based at air 
stations. Safety procedures call for a number of emitters 
to be employed for the duration of the flight. A properly 
equipped smuggling operation can Gain considerable 
intelligence against the Coast Guard, Particularly from 
voice communications. Voice communications are notoriously 
susceptible to monitoring with any of a number of relatively 
inexpensive scanners available in the electronics market. 
Making such communications protected or secure can deny the 
smuggler the information contained in the transmissions, but 
1t cannot conceal Coast Guard presence during the critical 
preliminary search. A system 1s needed that will allow the 
passing of safety and other important data between a 
helicopter and its cutter or air station and, at the same 
time, lend a higher degree of covertness to the operation. 
Since the new HH-65A helicopter is being built with a data 
link capability installed as part of its avionics package, 
there exists an opportunity to conduct covert law 
enforcement operations with cutters or air stations. Since 
the data link can send position and operations information 


automatically using preselected time periods, the pilots are 


1s 





relieved of one more duty that distracts from the mission 
accomplishment. 

From the pilots” point of view, a data link capability 
means that their attention need not be diverted from the 
normal scan of aircraft instruments, the airspace around the 
helicopter, and the water or ground over which they are 
searching. The onboard computer system does many of the 
navigation functions automatically and, with the install- 
ation of data Jlink capability, can make the required 
operations reports to the controlling Coast Guard unit. On 
a typical mission the aircrew must monitor the UHF and/or HF 
radios for communications with their controlling unit, the 
VHF-AM radio for normal communications with FAA facilities 
and other aircraft, and the VHF-FM radio for communications 
with vessels. Thus, the pilots must monitor up to “four 
different radios simultaneously while communicating with 
other members of the alrcrew over the internal 
communications system CLES) These communications 
requirements tax the concentration of the aircrew and 
contributes to their fatigue. The data link can relieve the 
crew of one duty while enhancing the security of the flight 
operation. 

The Coast Guard Office of Operations sent a memorandum 
to the Office of Research and Development in June 1985 
requesting development of a shipboard version of the data 


link. The performance standards and specifications listed in 





that request have been used as a basis for the functional 
specifications for the CSDE implementation of this thesis 
oroject. 

The performance standards and criteria outlined in the 
request for support specified a “shipboard version of the 
data link built into the HH—-65A helicopter”. This language 
does not reflect the possible use of the data link at a 
Coast Guard Air Station. This thesis will assume that the 
design of shipboard equipment will be more than capable of 
working ashore as well as at sea. 

It would be possible to use a commercially available 
microcomputer for this’ project. Writing the assembly 
language software to drive that system would not be too 
difficult. This approach, however, would provide a software 
engineering problem without adding anything new to the 
knowledge base of computer-aided design. It is far more 
enlightening to attempt the project through the use of CSDE 
in order to reduce design costs for new systems. 

The goal of this project is concerned with the use and 
abilities of the CSDE and not with producing a working 
prototype of a data link receiver unit that will function 
according to Coast Guard requirements. The data link 
receiver designed using CSDE will be a subset of and not a 
complete implementation of the specifications listed by the 


Office of Operations. Because of this, there will be no 
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effort to fully meet the performance requirements specified 
in the request for support. 

The following 15 a listing of the requirements and 
performance standards as stated in the request and describes 
how each will be addressed in this project. 


The data link receiver system: 


1. Must operate on all frequencies (selectable) 
from HF to UHF (30.000-399.975 MHz). 

Comment: This 18S outside the scope of the 
thesis work and will be assumed to have been met. 
The point of this thesis is not the solution of 


interfacing problems with the radio transmitters. 


ee Must be compatible with the AN/ARC-182 
transceiver on the HH-SSA helicopter. 

Comment: This 1s outside the scope of the 
thesis work for the same reasons as cited in the 
paragraph above and will be assumed to have been 


met. 


a Must be compatible with data link system 
presently installed in the HH-SSA. This’ system, 
manufactured by Collins, operates at a 300 baud rate 


with data burst. 


1S 





Comment: This is central to the design but 
little information was available for use in this 
thesis. The details will be addressed later in this 


section. 


4. Must be of the smallest size and weight 
practicable for installation in CIC/CSC on all 
flight-deck equipped cutters, up to 200 feet from 
transceiver and antenna. A remote readout for the 
Pilothouse is extremely desirable. 

Comment: The small size and weight should 
follow from an efficient design. The installation 
aboard cutters will be assumed as will the solution 
regarding the distance between transceiver and 
antenna. The remote readout requirement will not be 
addressed. It 1S expected that the addition of a 
remote readout will be relatively simple when the 


system design is complete. 


23. Must be capable of automatically tracking and 
polling at least three aircraft in sequence at 
selective time intervals from 5-30 minutes, and must 
be capable of manually polling an aircraft data 


el 6 


Comment: These requirements will be met in 


=p a 
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6&. Must be capable of providing an automatic 
response to an aircraft interrogation. This 
response would give the cutter*s position by the 
best electronic navigational aids available and 
would provide for data verification, as in the 
HH-6SA system. 

Comment: The acknowledgement of a message 
receipt and the reply with a position will be met. 
Provisions for manual input of navigation 
information for use with a stationary receiving unit 
(an air station) will be included. This will also 
mean that manual input will be possible aboard a 
cutter if the electronic navigational aids become 
unusable. The data verification will not be 


included for reasons stated later. 


Attempts to acquire the actual protocols for the 
communications and the technical specifications for the data 
link equipment installed in the HH-SSA helicopters failed. 
Coast Guard sources could not provide the necessary infor- 
mation. The Collins Government Avionics Division of 
Rockwell International Corporation, makers of the HH-S5A 
data link, did not respond to requests for the information. 
The protocols, message formats, and other specifications 


used in this thesis are estimates of what and how the data 
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link system should work and not the result of any 
propproprietary information. 


The data link receiver is configured as shown in 


Figure 1. There are four inputs: from the radio interface 
unit, the electronic navigation devices interface unit, the 
clock, and the keyboard. There are four outputs: to the 


radio interface unit, the video display unit, the printer, 
and the clock. All inputs to and outputs from the system are 
digital signals using ASCII code. 

There is a pattern of levels of abstraction in this 
view of the project. At the center is the data link 
receiver processor designed for this thesis. This processor 
1s responsible for the proper routing of messages to and 
from memory, calling menus from ROM and sending them to the 
video display terminal, updating positions, and performing 
tasks in response to input from the keyboard. It 1s assumed 
that there 1s a radio interface unit that receives” and 
Processes all signals. If a message is addressed for this 
particular Coast Guard unit, then the radio interface unit 
receives the message, checks the correctness of the message, 
and sets a flag to tell the data link receiver controller 
that a message awaits. 

The electronic navigation devices are an abstraction 
for the actual machines that compute the receiver unit’s 
position. These devices may include LORAN-C, OMEGA, 


Mavigation satellites, or any other navigation instruments 


18 





DATA LINK RECEIVER 


Radio 
Interface 
Unit 





Keyboard 


Ly 
Processor 


Navigation 
Interface Printer 
Memor y/ 
Mass 


Storage 





Figure i 


7 





that may be polled by the navigation interface unit. These 
devices pass their position information to the navigation 
interface which sets a flag to let the main processor. know 
that a new position has been computed. The system operator 
may override the automatic polling of the interface unit by 
the system processor in the event of a malfunction in the 
navigation instruments. In the case of a shore unit, there 
1s nO need for a navigation interface. The operator would 
manually enter the position of the air station and set the 
system to prevent the interface being polled in the case 
where the receiving unit 15 a shore unit and thus in a 
constant position. The same method could be used for a ship 
at anchor when most navigation devices are normally secured. 
It is essential that the ship’s position be sent as often as 
necessary to keep the helicopter’s computer updated. 

The third input comes from a clock. The clock is used 
for time-stamping the positions computed by the navigation 
devices. This information is passed as part of the acknow- 
ledgemernt messages sent in response to ae helicopter’s 
message and also when polling helicopters. The radio 
interface unit is assumed to have direct access to the clock 
to obtain the time. The output to the clock from the 
processor is for setting the date and time and is entered by 
the operator through the keyboard. 

All commands to the system are entered using a 


keyboard. Menus are provided on the video display unit for 
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the operator’s assistance. Most inputs through the keyboard 
consist of single keystrokes for the selection of operations 
as listed in the menu currently displayed. There are 
several cases where more than one keystroke 1S required. 
When an aircraft is logged into or out of the system, the 
clock is set, or the position of the receiving unit is 
manually inserted, the operator must enter the appropriate 
number of characters. 

The video display unit may consist of some sort. of 
smart terminal or it may be an interface unit between the 
main data link processor and the VDT. In either case, the 
data link receiver’s processor need only send certain codes 
to the video display port. These codes trigger the 
appropriate actions by which a driver in the video display 
interface causes the menus to be displayed on the screen. 
Messages from the helicopters are displayed in a similar 
manner. This is another advantage of the levels of 
abstraction. The technology, architecture, and implementa-— 
tion of the device is invisible to the data link receiver 
processor. 

The printer receives its commands and data in a manner 
Similar to that of the video display terminal. It does not 
receive as much text as the VDT because the menus are not 
orinted. It exists in the system mainly to provide hard 
copy output of the message traffic during a mission. Should 


the hard copy not be required aor desired, the operator has 
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only to secure the power switch of the printer. This makes 
the overall system simpler because there is no need to 
include an on/off function for the printer in the system. 
This approach of levels of abstractions 1s a 
reasonable one for several reasons. It would be difficult 
for CSDE to design a controller that would perform all the 
requirements of this controller and still be able to meet 
the required time constraints for each task. The overall 
system must monitor the airwaves, receive a message, check 
it for validity, and store it properly not to mention all 
the other functions required to drive the video display 
unit, monitor the keyboard for input, and other such tasks. 
One criticism of CSDE has been that there is no way to 
force a design with two CPUs CRef.17]. CSDE will design a 
system with two processors when one cannot perform all the 
functions set forth by the designer within the required time 
constraints. Nor does CSDE presently allow for more than 
two CPUs. There are, however, ways around these limit-— 
ations. The central part of the receiver is designed with 
the assumption of several "smart" interfaces. These other 
interface units may also be designed using CSDE as long as 
the user is careful to specify compatible links between the 
units. The result is a number of processors integrated into 
one system much as an operating system or a communications 


network may be viewed as consisting of layers. 
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The radio interface will receive messages sent to the 
particular receiving unit. The message will be tested for 
completeness and correctness. If the message passes this 
test, it is held in a buffer and a status flag set. The 
processor checks the status bit when it polls the radio 
receiver and if it is set, it reads the message into memory 
in a serial fashion and passes it to the video display unit 
and the printer. 

The radios, navigation devices, and the keyboard are 
polled according to the time constraints in the CSDL 
contingency list. The number of polls of a device per time 
period vary with the immediacy of the input. For instance, 
the keyboard will be polled more often than the navigation 
device. The system must respond to keyboard inputs fast or 
the operator may become frustrated or think the system is 
locked up. The position of the unit doesn’t change at a 
fast rate so the position need only be updated every minute 
Or so. 

The system will handle at least three helicopters 
simultaneously. A maximum of ten aircraft may be logged in 
at any given time. The tail numbers of the helicopters must 
be logged into the system memory manually by the system 
operator. The system will receive and process messages from 
an aircraft not logged in as long as the receiving unit 15 


specifically addressed in the message. It will not, 
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however, poll any helicopter that is not logged into the 
system . 

The polling of aircraft is done either automatically 
Or manually as selected by the operator. If the polling 15 
On automatic, the operator must select a polling time period 
from 1 to SO minutes in duration. The normal reporting 
period for a Coast Guard helicopter is every 15 minutes. 
The performance standards and criteria for the system 
specified periods between five and thiry minutes. A ane 
minute interval was added for closer monitoring of a 
helicopter during an in-flight emergency or a critical 
period during a search and rescue case or law enforcement 
action. 

Messages from the helicopters are fixed in format. 
The messages are received and held in a buffer by the radio 
interface. While the message is read into memory, it is 
printed on the video display terminal and on the oprinter. 
Messages are acknowledged by the radio interface by sending 
the position of the receiving unit and the time the position 
was Calculated back to the helicopter. The position is 
read from the navigation interface by the processor and 
stored in memory. It is called from memory when needed = and 
passed serially to the radio interface. 

A garbled message from an aircraft is not 
acknowledged. When a message is not acknowledged, the 


helicopter*s data link processor’ will resend the message 





after waiting a random period of time. The message will be 
sent again and again with random wait times between 
transmissions until acknowledged. After being sent a 
certain number of times without acknowledgement, the pilots 
are notified by a message printed on their VDTs. 

If two or more helicopters send messages simul- 
taneously, none will be acknowledged. This contention is 
not serious since the helicopters will resend their messages 
after waiting a random period. The messages are short (less 
than 64 bytes sent at 300 baud) and most cutters operate 
with only one helicopter at a time. An exception are the 
five polar icebreakers that normally carry two helicopters. 
Operations from air stations present the highest probability 
of contention since they might have two or more helicopters 
airborne on missions at the same time. The short duration 
of the messages coupled with the few aircraft generally 
under the control of one unit plus the random timing for 
resending a message creates a situation where the contention 
is self-correcting. 

The messages are stored in the same packed form as 
they are received. When the messages are processed (for 
display, they are filled out with the necessary descriptive 
enhancements. The overlays or templates for this purpose 
reside in ROM and are inserted by the video display unit as 
the messages are displayed on the VDT. The system has the 


ability to store the last ten messages received in memory. 


ae 





The protocol of the data link transmissions include 
the preamble, control data, and information. The preamble 
and control data sections are used by the radio interface. 
The information section alone 1s passed to the processor by 
the radio interface. The information section of the message 
follows the format below. The number of characters in each 


field are shown in parentheses. 


1. Helicopter number. (From) 


4 digits (1409) 


2. Ship/ground station identifier. (To) 


4 digits (7184) 


3. Date and time. (DTG for message numbering) 


12 characters (S11545ZMAY84) 


4. Position time. (This is the time the position 
was calculated. The time may be local or Zulu, 
depending on local doctrine). 


4 digits (1543) 


3. Message type. (Message types include normal 
position reports, poll response, etc., or “mission 


type such as fisheries patrol, drug interdiction, 





search and rescue, etc., and can declare an aircraft 
emergency) 


1 character (3) 


6. Position. (Latitude/Longitude. Format is 
degrees, minutes, and tenths of minutes followed by 
Nor S for latitude, E or W for longitudes; i.e., 
Lat = ddmmtN, Long = dddmmtw) 


13 characters (36429N088321W) 


7. Ground speed (in knots). 


5 digits (105) 


8. Track (in degrees true). 


> digits (220) 


9. Fuel (in pounds, less reserve). 


4 digits (1200) 


16. Wind direction (in degrees true). 


= digits (345) 


11. Wind velocity (in knots). 


3 digits (022) 





12. Altitude (in hundreds of feet). 


2 digits (12) 


13. CRC (cyclic redundancy check. This 1s used in 
the radio interface unit but is not read into the 


processor’s memory). 


Fach field of the message will be complete, that is, 
each field will use its full number of characters. If the 
information for a particular field is unavailable for some 
reason (the failure of an instrument such as the 
omnidirectional airspeed indicator or lack of an updated 
position because of loss of LORAN lock on) the field will be 
filled with Blanks (20H). Fields that are short will use 
blanks (20H) or zeroes (OOH) as appropriate to pad the data 
field. 

The tormat for the examples given above looks like 


this: 
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These numbers are hexidecimal representations of the ASCII 
characters for the numbers and letters used mn the 


examples. 





Keyboard inputs provide the operator’s control over 
the system. The input system 1s simplified ta the point 
where single keystrokes are all that are necessary to invoke 
different functions. When a keyboard input is detected, the 
appropriate menu 1S placed on the video display unit. The 
operator uses single keystrokes to select and invoke the 
different system functions. The menus are contained in ROM 
and are written to the VDT by the video display unit 
interface. The data link receiver processor sends the 
appropriate code to the video display unit interface to call 


the menus to the screen. 





Pi SDL PES LGN 


The Control System Design Environment was first 
proposed by Matelan [Ref. 181] as a method of simplifying the 
design of process controllers. Ross implemented the Control 
System Design Language (CSDL) as part of this environment 
CRef. a The designer of a controller system describes 
the inputs and outputs needed and the required response 
times for different functions. Using this’) high-level 
language makes the design of the controller much simpler 
than it would be without the use of computer-aided design 
tools. 

Some of the syntax rules of CSDL should be mentioned. 
CSDL programs must be in upper case Characters only. Most 


statements end in a semicolon. The names of functions end 


with a colon while task names end with a semicolon. The 
final end statement has no punctuation. Variable names 
cannot exceed ten characters. Because they are later 


truncated to six characters, the user should insure that the 
first six characters in a name are unique. A complete 
listing of the formal syntax of CSDL 1s available in 
Carson’s thesis (Ref. 20]. 

There are five sections to CSDL programs. The 


sections are Identification, Environment, Contingency List, 


La 
ay 
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and Procedures. The Identification section is simply the 
name of the designer, the date, and the project name. It is 
intended to identify the program and does not have any 
effect when the program 1s run. It appears in this format: 
IDENTIFICATION 

DESIGNER : “SUTTER FOX" 

DATE =: "05-31-84" 

PROJECT =: "COAST GUARD DATA LINK RECEIVER" 

The second section is the design criteria. This 1s 
the portion of the program where the designer can choose the 
Primitive list and processor family for CSDL to use. At 
present there are three realization libraries. They are 
based on the 8080, Z89, and 8086 microprocessor families. 
The format for the design criteria section 1s: 

DESIGN CRITERIA 

FETRIC FIRST s 

YOLUMES 15 

MONITORS 15 
METRIC FIRST refers to the first realization that meets the 
the timing requirements of the system. Alternatively, the 
designer may prescribe cost or power as the minimum 
requirements for the system. VOLUMES refers to the 
realization libraries in the order they are numbered. Since 
only one volume was resident when this project was 
translated, the first ‘and only) volume was designated. As 
with the realization volume, there is only one monitor 


vVOlume for the realization volume, and thus the first (and 


only) monitor is selected. 





The design variables are declared in the environment 
section. The system for the data link receiver’ = produced 
under CSDL requires a greater number of variables than any 
earlier attempt at a CSDE controller generation . This will 
be discussed in more detail later in this chapter. There 
are three types of variables in a CSDL program. Input 
variables are values that are sensed by the controller § from 
the outside of the controller processor. The output 
Variables send values outside the controller. The 
declaration of these variables includes the number of lines 
necessary between the controller and the outside world = and 
the type of technology desired for their design. The third 
type of variable is the arithmetic variable. Arithmetic 
variables used in computations within the controller 
itself. The declarations made in the environment section 
are analogous to declarations made in a block structured 
language such as Pascal, Ada, or PL/I. The format of the 


environment section is: 


ENV IRONMENT 


INPUT =: KEYFLG,1,TTLs KEYCHAR,&S,TTL:s 
MANPOS,8,TTLs END INFUTS 


OUTPUT : MENU,8,TTL3; FPOLL,8, TTL; 
MSGVDT,8, TTL; MSGRCVD,1,TTL; 
END QUTPUT; 


ARITHMETIC °° KEYINMAIN, 8s MINTAC, Ss 


NEXTMSG,8; NEXTAC,83; COUNT,8; 
END ARITHMETIC; 


Oe 








The procedures section 1s much the same as found in 
block structured languages. This section contains the high- 
level descriptions of the arithmetic and data manipulations 
required to make the system work. There are two types of 
blocks within the procedures section: functions and tasks. 
The functions and tasks are always coupled in what are 
referred to as contingency/task pairs. Each function is 
evaluated in its turn as set forth in the contingency list. 
If it is true, its associated task is performed. The 
requirement that each function have one and only one task 
creates some problems with programming with CSDL that will 
be discussed later. An example of a function and a task 
follows. 

FUNCTION KEYINMAIN: 


BINARY, 13 
SENSE (KEYFLAG) ; 


IF KEYFLAG = 1 THEN KEYINMAIN := 13 END IFs 
END KEYINMAINS 
TASK KBINPMAIN:s 
MENUZ=035 ISSUE (MENU) 5 
SENSE (KEYCHAR) s 
IF KEYCHAR = 1 THEN MINTAC <= 15 END IFs 
IF KEYCHAR = 2 THEN MMSGDSPLY := 13s END IFs$ 
IF KEYCHAR = 3 THEN MLOCATION := 13 END IFs 
IF KEYCHAR = 4 THEN MCLOCKSET := 15 END IFs35 
IF KEYCHAR = 3S THEN MLOGINOUT <= 1; END IFs5 


KEYINMAIN : 
END KEYINMAINS 


lI 
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FUNCTION KEYINMAIN is) called according to the time 
constraints set forth in the contingency list as described 
in the next paragraph. The keyboard active status flag is 


checked by SENSE (KEYFLG). If the flag is set, then the 


we 
or 





variable KEYINMAIN is set. Thus, the function is true and 
the associated task KBINPMAIN is performed. This task calls 
for the video display interface to put the appropriate menu 
on the VDT with the statements MENU:=0 and ISSUE (MENU). 
The menu presents the five selections available to the 
operator and waits for input. Upon pressing a number key 
from one to five, the appropriate variable is set to one. 
Note that the variable is the same name as a function in the 
CSDL program. When that particular function is tested = and 
is found to be true, its associated task will be performed. 
The final line sets the function associated with the task to 
zero so that it will not be performed again until = set. It 
is important in this data link receiver project to insure 
that no more than one function be set at any given time in 
order to preserve the flow of program control. 

The fifth section is the contingency list. In this 
section the designer lists the contingencies (functions) 
that occur and the time constraints for performing the 
associated tasks. This is where CSDL differs greatly from 
languages that execute ina linear manner such as FORTRAN, 
BASIC, or Pascal. The timing requirements may be such that 
some functions are tested several times before another 
certain function is tested at all. Some procedures (tasks) 
may be performed every designated time period. The 
execution of functions and procedures are dependent upon the 


timing requirements the designer delineates in this section 
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of a CSDL program. An example for the contigency section 
is: 


CONTINGENCY LIST 
WHEN KEYINMAIN :100 MS DO KBINPMAINS 


WHEN MINTAC -100 MS DO INTAC; 
WHEN SMMANUAL :100 MS DO MANUAL; 
WHEN SMAUTO 2100 MS DO AUTO; 
WHEN TPOLL >100 MS DO POLLAUTO; 


WHEN MLOCATION :100 MS DO LOCATION; 
WHEN TMLOCATION: 100 MS DO MANLOC; 
WHEN POSCH 2100 MS DO POSUPDATES 
WHEN MMSGDSPLY :100 MS DO MSGDSPLY’$ 
WHEN MCLOCKSET °:100 MS DO CLOCKSETS 
WHEN MLOGINOUT 2-100 MS DO LOGINOUT; 


WHEN TLOGIN > 100 MS DO LOGINS 
WHEN TLOGOUT >100 MS DQ LOGOUT} 
WHEN MSGIN 2100 MS DO MSGSTORES 


Writing code in CSDL is not as easy or convenient as 
in many high-level languages. There are several factors 
that can make it a frustrating experience for those who are 
used to the constructs available in languages such as 
Pascal, PL/I, and even BASIC. The reader should not = § judge 
CSDL too harshly. It should be remembered that the CSDL 
language was designed for simpler controllers than the one 
attempted in this thesis. 

There are no comments in CSDL other than those 
enclosed in quotes in the Identification Section. It 1s 
widely accepted that commenting within programs makes it 
easier to maintain those programs. Since most candidates 
for a CSDE implementation are relatively simple, and since 
most CSDL programs will be written and implemented in a 


fairly short time, this may not be a very big problem. 





The data link receiver project would normally be a 
candidate for an interrupt-driven system. As it is pres- 
ently implemented, CSDL has no ability to design systems 
that use interrupts. 

Since all contingencies and tasks in CSDL must be in a 
one to one ratio, all the functions and tasks have been 
placed together in the listing for this data link receiver 
CSDL program. This makes it clearer for the reader (not to 
mention the programmer) when perusing the code. There are 
many menus in this system and the functions and tasks have 
been named to reflect the fact that some menus are called 
from other menus. The main menu presents five choices. it, 
for instance, the operator selects "Interrogate Aircraft", 
FUNCTION MINTAC is set to 1 (true). FUNCTION MINTAC is 
paired with TASK £INTAC. Functions generally have more 
letters in their names than their tasks since functions 
generally have a prefix added to the name of the associated 
task. TASK INTAC calls up a menu wherein the operator may 
select a return to the main menu without any function being 
Carried out, or the operator may elect to interrogate the 
aircraft manually or automatically. If the selection is to 
interrogate automatically, FUNCTION SMAUTO is set true. 
TASK AUTO is paired with FUNCTION SMAUTO, and by now the 
pattern may be clear to the reader. The name of function 
that is set to true by a selection made under the main menu 


is prefixed with an M. A menu called from a task that is 
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associated with "M" function has a function prefixed with 
"SM" for secondary menu. When there is another submenu, the 
function name will be prefixed with "TM" for tertiary menu. 
Tasks have names similar to their associated functions but 
without the prefixs. 

One construct that would be most welcome in CSDL is 
the CASE statement. This would allow ease of programming 
when one out of several possible paths would be chosen. The 
lack of a CASE construct requires one to write multiple MIF 
statements which does not make for the most elegant 
programming. Several of the procedures in this) data link 
receiver project have ten IF statements where some other 
fee aitaces would be able to express the same function in one 
or two lines. This does take up some space in memory but 
when compiled i1t requires less space and may be 
insignificant in terms of overhead. The real problem that 
1s evident 1s that there are many more variables’) than 
necessary in most other high-level languages. CSDL does not 
allow for subscripting variables which leads the designer of 
a system to writing many more lines of code and having to 
mame each variable instead of using subscripts. For 
example, ten messages are required to be in memory at any 
Given time. This requires ten different variable names’ for 
these ten messages. A pointer must keep track of the next 
message block available for use and it would be quite simple 


to use subscripted variables for this purpose. Since this 
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is not possible, a series of nearly identical IF statements 
must be traversed when locating the next block. The same 
problem occurs when printing the messages. The code must 
explicitly name each of the ten variables. It would require 
less memory for the program to be able to refer to these 
Variables with subscripts and would also make for clearer 
code. The complexity could be simplified by adding new 
primitives that would allow for the constructs using 
subscripted variables. Examples of tasks with multiple 
statements that could be handled with a CASE statement 
include KBINPMAIN, INTAC, and AUTO. Nearly every task in 
this program could benefit from the use of subscripted 
variables. 

The original design approach was to divide the memory 
for the ten messages according to the number of aircraft 
logged into the system. Two message memories were to be 
reserved for messages from helicopters not logged in. Thus, 
there would have been a maximum of eight aircraft tracked 
where each would have one message available for immediate 
recall. This would be the worst case scenario and also 
highly unlikely. If only one helicopter was logged in, the 
system could maintain the last eight messages for that one 
helicopter. Since CSDL does not provide a capablity ‘for 
indexing variables, it would be difficult to provide such 


dynamic allocation of the ten message memory areas. 
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It is highly likely that there will be three or less 
helicopters logged into one system at any given time. It is 
less likely that there would be four or more aircraft logged 
in simultaneously. Standard safety procedures call for a 
helicopter to maintain a radio guard at all times and_=e send 
an "operations normal" and position report every fifteen 
minutes. If there were three helicopters logged into one 
system that would mean 12 reports in an hour. This means 
that the two earliest reports would be overwritten by newer 
messages at the end of an hour but there would be at least 
three messages remaining for each aircraft. Even if there 
were ten aircraft using the system, there would be at least 
one message in memory for each aircraft. This would be the 
last position sent and would be used as a datum for search 
and rescue procedures should communications be lost with the 
aircraft. Position reports include heading, track, ground 
speed, and other environmental data that would provide 
excellent search planning information. Since manual polling 
of the helicopters is provided, 1t would be possible to 
manually poll one or more helicopters enough times so that 
there would not be any messages in the memory from a 
particular helicopter. There are two backups in this case. 
First, the printer should be enabled so that there would be 
hard copy of all the messages. The second is the 
multi-track audio tapes that monitor telephone’ and radio 


traffic at air stations and aboard the flight-deck equipped 
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cutters. Should it be required in an emergency, the tapes 
could be run back as far as necessary and then replayed to 
feed the raw radio signals to the radio interface device. 

Reading messages in from the electronic navigation 
device interface created a problem when coding the program. 
Each message is 56 bytes long and the input to the processor 
is 8 bits wide. In order to read in the message, the 536 
bytes must be read into the processor and sent to memory, 
the video display unit, and the printer in ae serial 
fashion. There was no construct in CSDL that would read in 
a string of characters of this length. This function is one 
that 1s basic to the operation of this system. String 
handling can be added by writing a new primitive that would 
read in the S56 bytes or any other number by overloading the 
SENSE (input) statement in CSDL. Without this addition to 
the language, there could be no CSDL implementation that 
would satisfy the requirements of the data link receiver 
project. A similar primitive can be specified to write a 
message out to the VDT and printer when the operator selects 
that function. These primitives can be general enough that 
they may be used for different sizes of strings. 

When the CSDL program is completed, it is translated 
by Carson’s CSDL.PAS program. This program, written in 
Pascal, takes the high-level CSDL program and translates it 


into a primitive list for the controller. The primitive 
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list is used in the next step in the control system design 


environment process. 
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IV. IMPLEMENTATION 


The next step in the process’ from the high-level 
description to the hardware and software listings is to take 
the output of the CSDL translator and feed it through Ross’ 
FORTRAN program, NEWCSDL.FOR. 

The main task performed by NEWCSDL.FOR is to map the 
Primitive list compiled by CSDL.PAS to the selected 
realization library. The output includes a listing of the 
hardware to implement the controller and the assembly 
language software to run it. Two files, the primitive list 
and another containing information about the contingency 
list, are used by the Optimizer Module in NEWCSDL.FOR to set 
up a formatted application table and an index to the 
selected realization volume. The Functional Mapper 
constructs the Realization Timing Table and determines if 
the realization is feasible. A monitor sequence is' added 
and actual values are substituted for dummy parameters and 
an output listing is generated. If the Timing Analyzer 
fails to finda feasible single processor realization, the 
contingency/task list is partitioned and a dual processor 
realization 1s gener ated under the control of the 
Uptimizer. For greater detail, see Ross’ doctoral 


dissertation CRef. 21]. 





The project at this point had progressed from the CSDL 
description through translation by Carson’s CSDL.PAS 
program. This was the second attempt to use CSDL.PAS on a 
project. The first use was for a test of CSDL.PAS conducted 
by Carson By running Riley’s jet engine start sequencer 
controller through the translator. 

There were some problems getting the CSDL description 
for the data link receiver project through the translator. 
The data link receiver required so many variable names that 
it exceeded the size limits set in CSDL.PAS. One problem 
concerned a CASE statement in the CSDL.PAS program where 20 
possible cases existed. This problem was resolved by 
increasing the allowed number of cases to 95. There were 
other errors generated in translation that were quite 
frustrating. One problem was overcome when it~ was 
discovered that CSDL.PAS would generate errors whenever a 
tabkey had been used to produce spacing within the CSDL 
description. All tabkey spacing was removed and replaced 
with spaces generated using the spacebar. CSDL.PAS should 
be modified to allow for spaces generated by either the 
space bar or the tabkey. 

More problems were discovered when trying to run the 
Primitive list generated by CSDL.PAS through NEWCSDL.FOR. 
FORTRAN is notorious for the inflexibility of program 


inputs, which is a carryover from the days of card input. 





NEWCSDL.FOR is no exception. Title lines for functions and 
procedures in the primitive files have the format: 

1 6 2S 

p xxx t.generated for: procedure name 
where xxx represents the line number of the primitive and t 
stands for title line. The t.generated for primitive marks 
the beginning of a new procedure. The procedure names _ in 
the title lines of the primitive list as generated by 
CSDL.PAS were in column 22. When NEWCSDL.FOR 1S run with 
the procedure name in the wrong column, everything between 
the title lines 1S ignored and error messages are generated 
for each title line in the file. Each title line in the 
primitive list had to be reformatted to meet the 
requirements of NEWCSDL.FOR. 

Another problem encountered in the translation was 
that the s.ni primitive should have appeared as: 

p xxx S.N1 Cae? 
The s stands for a software primitive. An h stands for a 
hardware primitive. The colons inside the parentheses are 
required because they are used to separate variables, 
parameters, and attributes. They were not in the primitive 
list generated by CSDL.PAS. The colons were added using the 
text editor. A similar error was discovered in the s.main 
primitive. 

The entire primitive list must be in lower case 


letters except for the function and task names. They may be 
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in upper or lower case as long as they are consistent with 
the case used in the contingency list file. Although 
CSDL.PAS allows variable names of up to ten characters in 
length, NEWCSDL.FOR has a maximum of six characters. The 
designer must insure that no two variables have the same six 
first characters. 

While the formatting errors and the lack of colons in 
the proper places created some unnecessary work, the biggest 
problem at this point was the incompatibility of the 
Primitive list and the 7Z80 realization library. For 
instance, the function of one basic primitive is to sense a 
value on a particular input line to the processor. This 
Primitive has the form: 

P xxx s.sensecond (keychar:98) 
where sensecond stands for sense condition, keychar is the 
name of some variable, and eight refers to the arithmetic 
precision of the variable. It was discovered that the Z80 
realization library did not contain any realization of this 
primitive. 

The Z80 library was designed by Smith at the same time 
Riley was working on the jet engine start controller. This 
was before Carson’s CSDL.PAS program was available. Riley 
had to translate the CSDL listing into a primitive list by 
hand. Since he chose to implement his project using the Z80 
library, he and Smith worked closely together. Prolog 


equipment was used for the project implementation and so 





Smith geared the Z80 library toward that end. Thus, the Z&8O 
library was not as general as needed to produce contollers 
using other hardware. In particular, the I/O primitives 
were designed specifically to match the Prolog hardware. 
The s.sense and s.issue primitives were not needed for the 
Prolog implementation and thus were not included in the Z80 
realization library. 

At this point it was decided to shift the emphasis 
from using the Z80 realization library to the 8080 and 8086 
realization 11b6raries. There were two reasons for this. 
First, the designer of the 89086 library, Cetel, was still 
available to make adjustments to the library. Second, the 
8086 library closely followed the example of the original 
8080 library built by Ross. If the primitive list could be 
adjusted to run under NEWCSDL.FOR, then two realizations of 
the data link receiver could be produced. This would help 
standardize the realization libraries to where any library 
could be used with the primitive list output by CSDL.PAS and 
further processed by NEWCSDL.FOR. 

Other problems remained stemming from the incom- 
patibilty of the primitive list produced by CSDL.PAS and the 
realization libraries. CSDL.PAS produced other primitives 
that did not exist in the realization libraries. These 
primitives included s.inputport and s.outputport. Inputport 
and outputport are both primitives that remain to be added 


to the realization libraries. 
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The s.forcons and s.forend primitives in the 8080 and 
8086 libraries are not in the same format. These primitives 
mark the beginning and end of for-next loops. There are two 
Variables for the upper and lower values of the loop. 
NEWCSDL.FOR expects actual numbers but CSDL.PAS produces 
variable names instead. 

The s.exitproc primitive marks the end of a procedure 
in the primitive list. NEWCSDL.FOR was designed to use the 
contingency name in the parameter list to reset the value of 
the contingency to zero after the task was executed. The 
CSDL program written for this project included a statement 
at the end of each task explicitly resetting the 
contigency. Ross decided that the realization libraries and 
NEWCSDL.FOR would be changed to adopt this latter method of 
resetting the contingency. 

There are several different primitives with the same 
mames ina realization library. This is to allow for 
different precisions of arithmetic manipulations. 
NEWCSDL.FOR performs a binary search to find a primitive 
name. When it finds the primitive, it searches up the 
realization library index to find the first instance of the 
Primitive name. NEWCSDL.FOR then works down through the 
index to find the first instance of the primitive that will 


satisfy the precision required. For instance, s.var_ and 
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Ss.cons primitives in the 8086 realization library had the 
format: 

s.var (nam,val: 0,8 :...etc) 

s.var (nam,val: 0,16 :...etc) 

s.var (nam,val: 0,24 :?...etc) 
where the O,n referred to variables with zero ton bits of 
precision. It was discovered that NEWCSDL.FOR was choosing 
the greatest precision available every time. This was 
corrected by changing 8086 realization library to the 
format: 

s.var (nam,val: 0,8 :...etc) 

s.var (nam,val: 9,16 ¢$...etc) 

s.var (nam,val: 17,24 :...etc) 
The correct precision is now selected for these particular 
Primitives but the entire 8086 library must be examined for 
other instances of this precision error. 

NEWCSDL.FOR requires a listing of the contingency/task 
Pairs in a file named IADEFL.DAT as one of its inputs. 
CSDL.PAS creates such a file but it is not in the required 
format. A new line for the system must be added as the 
first line in the file. The other columns must be corrected 
to the format as set forth in Ross* doctoral dissertation. 

The multiplication primitive, s.mult, was present in 
the 8086 library as s.mul. The two precisions of multiply 
were renamed s.mult to conform with the standard. The 
s.-mult primitive in the 8080 library had been changed by 


Polluck from a strictly software implementation to one that 


Called an arithmetic chip to do a hardware multiply. The 
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chip had been removed from the library at some point before 
this project was started. Either the chip or the software 
multiplication routine must be restored for the 8080 library 
to correctly handle multiplication. 

The size of the program also created problems in 
NEWCSDL.FOR. One of the stacks in the Formatter Module 
proved to be too small for the data link receiver project. 
The stack overflowed before the completion of the 
realization. The program was adjusted by Ross to allow for 
a greater stack size. The output of NEWCSDL.FOR for the 
B086 library is in Appendices D and E. 

At the time of writing this thesis, the following 
corrections and alterations to the primitive file must be 
made for NEWCSDL.FOR to properly process it. The two lines 
with 

t.generated for: SYSTEM 4H HHH HHHEH 
must be corrected to start the word system in column 23. 
The second line, 

s.MAIN (2:2) 
must be changed so that the word main 1S in lower case 
letters. All lines with s.inputport or s.outputport must be 
removed from the program altogether until those primitives 
are added to the realization libraries. 

Even with these changes, some errors were still 
produced. fo avoid problems with the s.in, s.ni, s.forcons, 


S$-forend, and s.exitproc primitives, the original CSDL 
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program was rewritten to remove for-next loops and timed 
blocks. These primitives must be standardized before they 
may be used without concern for any errors they may 
produce. The revised CSDL program is in Appendix B. 

The two realization libraries now produce the software 
and hardware listings to implement the data link receiver 
project but not without errors. One prominent mistake is 
that each time an input is sensed, another chip is added to 
the hardware listing. There should only be one [1/0 chip 
produced for a particular input or output. At the time of 
this writing, CSDL.PAS and NEWCSDL.FOR are being patched to 
correct some of the problems discovered while designing the 


data link receiver. 
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V. CONCLUSIONS AND RECOMMENDATIONS 





The Control System Design Environment holds great 
promise as a tool for simplifying the work of designers” and 
reducing the expense of producing controllers. This 
ambitious data link receiver project has shown that the CSDE 
has greater application than may have been realized by those 
who did the early work on it. This project has shown that 
it may be possible to design a system in modules and use 
CSDE to design each each of the modules independently of the 
others as long as the interfaces are compatible. 

This project has also demonstrated the necessity for 
compatibility among the different programs within the 
Control System Design Environment. Since the output of one 
program is the input of another, there must be a conscious 
effort to standardize the interfaces. 

Heilstedt has recommended that NEWCSDL.FOR be 
rewritten in a newer language than FORTRAN CRef. 221]. While 
it is true that other languages may be easier to maintain 
than FORTRAN, there are other items in the Control System 
Design Environment that should be addressed first for a 
better return on the investment of the time and effort that 
would be required. Since VMS on the VAX computer allows a 


file produced under one language to be used as input to 
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another language, there is no need to rush a reprogramming 
of NEWCSDL.FOR. A rewrite of NEWCSDL.FOR would make the 
input less column-dependent. A more critical problem is the 
incompatibilty among the different realization libraries. 
There should be a standardization of primitive names and 
their associated functions. Without this standardization, 
the mapping from primitive lists to the realization 
libraries will continue to be a hit or miss proposition. 
One of the major objectives of the Control System Design 
Environment is that much of the work can be automated toa 
make designing, prototyping, testing, and implementation of 
controllers faster and less expensive. The lack of 
standardization requires the intervention of the designer to 
make the transitions between the various elements of the 
system. 

Along with the standardization of the realization 
libraries, CSDL.PAS should be updated to incorporate the 
standards. This program is areal boon to the designer 
since it removes the tedious work of translating the CSDL 
program into the primitive list. As previously discussed, 
implementing some other high level constructs in CSDL.PAS 
would be an enhancement of the value of the program for the 
system user. These constructs should include CASE 
statements and the use of subscripted variables. 

The Control System Design Environment has great 


promise and could be a lucrative product when it is improved 
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to provide an automatic transition from CSDL description to 
the Hardware and software listings. As presently 
implemented, it requires too much effort while moving 
through the different segments of the system. A great deal 
of work remains to be dane, especially the testing of the 
interfaces between the different sections and of the 


realization libraries. It seems that the work will be well 


worth it. 
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APPENDIX A 


CSDL PROGRAM 


moENTIFICATION 
DESIGNER = “SJTTER FOX" 
DATE 2: * 05231-8046" 
Poe er 9 GOAS| GUARD DATA LINK RECEIVER" 


DESIGN CRITERIA 
Voeoneer TRS 1 > 
VOEUMES™ 13 
MONITORS 1; 


ENVIRONMENT 


INPUTSKEYFLG,1,TTL*? KEYCHAR,&,TILs MANPOS,8,TTL:; 
NENe@owlelhie, POSITION, 2,717L; MSGREADY,1,TTL; 
MESSAGF,8,TTLZACNUM,&,TITL;? 

END INPUT; 


mee Ut:s MENU,8,TTL-°OLL,8,TIL¢MSGVDT,8, TIL; 
MSGRCVD,1t,TILs 
END OUTPUT; 


ARITHMETIC: KEYINMAIN, 8; MINTAC,8- MMSGCDSPLY,8; 
MLOCATION,8* MCLOCKSET,&? MWLOGINOUT,8; SMMANUAL,8; 
SYAUTO,8; ACO,8% AC1,8¢% AC2,&s ACS,8; ACU,87ACS,8; 
AC6,8&; AC7,87 AC8,8; ACI,8; INTFPERION,8; ¥SG0,8; 
MSG1,8: MSG2,3;7 MSG3,87 MSG4,8; MSG5,8; MSG6,8; 
MSG7,8; MSG8,87 MSG9,B;TMLOCATION,8; TLOGIN,1; 
Petes NEA T156G,0, NEXTAC, 3, FPOLL,1; COUNT,8&; 

BO ARTYTHMETIC; 


me OCEDURES 


FINCTION KEYINMAIN: 

BINARY,1; 

SENSE C(HEYFLG); 

Peewee bt=) > THEN KEYINMAIN?¢=17 END IF; 
END KEYINMAIN,; 


TASK KBINPMAIN; 
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MENU: =0;3 


SENSE WCKETECAAR) 


te 
ce 
ee 


KEYCHAR=1 
KEYCHAR=e 
KEYCHAR=3 
IF KEYCHARS4 
be Rey CHA <= 5 
KEYINYMAINGE =0;3 
EVD KBINPMAIN; 


FINCTION MINTAC: 
BINARY,1; 


THEN 
THEN 
THEN 
THEN 
THEN 


SENSE CKEYCHAR), 


END MINTAC; 


eon INTAC; 
MENUs=1; 


Sense Ke YOAAR); 


TRO REYCHAR=0 THEN KEYINMAIN 
IF KEYCHAR=1 THEN SMMANUAL 


Prone VenaR=c 
MINTFAC:=0; 
END INTAC; 


FINCTION SMMANUAL:? 
BINARY,1; 


THEN 


SENSE CKEYCHAR); 


END SMMANUAL; 


TASK MANUAL; 


ISSUE (MENU); 


MINTAC 
MMSGDSPLY: 
MLOCATION: 
MELOEKSET 
MLOGINOUT: 


RSSUE (MENU); 


Sou 


IF ACO/=0 
IF AC1/=0 
IF ACe/s=0 
IF AC3/=0 
Penne 4 / = 0 
ACS/=0 
AC6/=0 
AC7/=0 
AC8/=0 
AC9/=0 


TAEN 
TAEN 
THEN 
THEN 
Tea N 
THEN 
THEN 
Tt Eas 
Ean 
THEN 


SMMANUAL 3 =0; 


END MANUJAL; 


mere TION SMAUTO: 
BINARY, 1; 


POLL: =0; 
POL s=1 
POEL S=2; 
POLL :=3; 
POLL 3=4; 
POLL 3=5,; 
POLL: =6; 
BOM es 7; 
POLL s=s6,; 
POLL :=9; 


SENSE (KEYCHAR); 


END SMAUTQO; 


af 


Poove 
TSSUE 
osu G 
Poo 
ISSUE 
ISSJE 
Poo Je 
ISSUE 
ISSUE 
Psa Je 


END 
EN) 
END 
END 
END 


ae ee ee pe Pe 


=e se Se BO WE 


END 


1; 
1; END 
1; 


fe Ole Lee) 
(POLL); 
(POLL); 
CeOLtI; 
CROLL); 
(POLL); 
(POLL); 
CROLL): 
(POLL); 
CECE La 


er 
Ley 
Ley 
ies 
rE? 


IF; 
nes 


END IF; 


END 
END 
END 
END 
END 
END 
END 
END 
END 
END 


ike 
IF; 
hee 
JF; 
he? 
lie 
IF; 
IF; 
Le? 
IF; 





feok AUTO; 


END 
END 
END 
ENDO 
END 
END 
END 


20 
ls 
10 


=e we Be Be We WH WE 


D0 
DO 
20 
DO 
D0 


DO 


GP OLE); 
CPOE) < 


PeOELs =1; 
TPOLL:=1, 
TPOLL:=1, 
TPOLL:=1; 


TPOLL:=1; 


TPOLL:=1-7 


END 
END 
END 


MeENUe=2;) [SSUECYENU); 
SENSE (KEYCHAR); 
TF KEYCHAR=0 THEN KEYINMAIN 
PEwReEYGanhn=1 THEN INIPERIGOD 
IF KEYCHAR=2 THEN INTPERIOD 
IF KEYCHAR=35 THEN INIPERTOD 
IF KEYCHAR=4 THEN INTPERIOD 
IF KEYCHAR=5 THEN INTPERIOD 
IF KEYCHAR=5 THEN INTPERIOD 
Synu1o.s =0; 
FeOEts=1 3 
mip AUTO; 
mevc’TION TPOLL: 
RINARY,1;3 
IF INTPERIOD=30 THEN IN 30 M 
EDEN; END JF; 
EeeerleeriDD=20 THEN IN 20 ™“ 
SNOeeNs END IF; 
PeeINTPERTOD=1S THEN IN 15 ™ 
END INe END IF; 
IF INTPERIOD=S10 THEN IN 10 © 
END IN; END TF; 
IF INTPERIOOD= 5 THEN IN 5 M 
Ee NeeNiD | F, 
PeesUNTPERTOOs 1 THEN IN 1] M 
ENO SING END IF, 
END TPOLL;? 
meron POLLAUTO; 
Peace 07 =O et4EN POLL?:=0;7; ISSUE 
Peeeeei/s=0 THEY POLL:=1; ISSUE 
Ree Ate/7=0 THEN POLL:=eec3 ISSUE 
Pees — Ot oe Ne POLL 3 = 3; ISSUE 
mac a/7=-0 THEN POLL:=d; ISSJE 
PemnGo/= 0 THEN POLL:=5; ISSUE 
IF AC6/=0 THEN POLL: =6; ISSUE 
PreesGr7=-GIMEN POLL:=7; ISSUE 
meal So/=0 THEN POLL:=8+ ISSUE 
teeeneg/=0 T4EN POLL: =9; ISSUE 
PeOLL: =0; 


END POLLAUTO; 


meer lLON MMSGOSPLY: 
BINARY,1; 
SENSE (KEYCHAR); 
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(POLL); 
(POLL) 7 
(CPG); 
CPDL); 
(POLL); 
CPOLE) > 
COE) 
CAGE) 


END 
END 
END 
END 
END 
END 
END 


Dey 
IF; 
IF; 
eS; 
IF; 


Pee 


ey 





BYD MMSGDSPLY; 


TASK MSGDSPLY; 


MSGVDT:=MSG0;7 ISSUEC(MSGVDT); 
MSGVDT:=MSG1; ISSUE(MSGVDT); 
MSGVDT:=MSG2s; ISSUE(YSGVDT); 
MSGVDT:=MSG3; ISSUEC(MSGVDT); 
MSGVDT:=MSG4; TSSUE(MSGVDT); 
MSGVDT:=MSG5; FSSUEC(MSGVDT); 
MoevOols=“9G07 ISSUE(4SGVDI); 
MSGVOT:S=MSG7; ISSUEC(MSGVDT); 
MSGVDT:=MSG8; ISSUE(MSGVDT); 
MSGVDT:=MSG9; ISSUEC(MSGVDT); 


MMSGDSPLY3:=0; 
END MSGOSPLY; 


BeNchION MLOCATION: 
BINARY, 1; 
SENSE (KEYCAHAR); 
END MLOCATION; 


TASK LOCATION; 


MENU3=3s ISSUE (MENJ); 


SENSE (KEYCAAR); 
IF KEYCHAR=0 THEN 
IF KEYCHAR=1 THEN 
Moe wey Cnax=e [HEN 
MLOCATION: =0; 

mo LOCATION; 


FIJINCTION TMLOCATION: 
BINARY, 1; 
SENSECKETEHAR); 

EVD TMLUCATION; 


TASK MANLOC; 
SENSE (MANPOS); 
POSTTION: =MANPOS; 
TMLOCATION: =0, 
END MANLOC; 


mee TION MCLOCKSET: 
SINARY,1; 
SENSE CKEYCHAR); 
BID MCLOCKXSET; 


TASK CLOCKSET; 


KEYINMAINS 


NEWPOS3:=1 
NEWPOS:=0 


MENUS=4; ISSUE (MENJ); 
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e 
e 
s 
e 
a 


=} 
E 
Tr 


, END IF; 
ND IF; 


MLOCATION:=1; 


END IF; 





SENSE Che YCYAR); 
MCLOCKSET:=0; 


Bp CLOCKSET; 


FINCTION MLOGINOUT:? 
BINARY, 1; 


SENSE (KEYCAAR); 


END MLOGINOUT; 


TASK LOGINOUT; 


MENU:=S7 ISSUE (MENU); 


DENSE BCKEYE AAR); 
IF KEYCHAR=0 THEN KEYINMAINe =17 END IF; 
DREN TEOGINZ Sl, END IF; 

IF KEYCHAR=2 THEN TLOGOUT:=1; END IF; 
MLOGINOUT:=0; 


TF KEYCHA<=1 


END LOGINOUT; 


FINCTION TLOGIN: 
BINARY,1; 


SENSE CKEY EHS); 


ep TLOGIN; 


TASK LOGIN; 
ACNUM3=0; 


PUR COUNT FROM 1 
SENSE (CKEYCHAR); 


nomads 473Do 


ACNIMs=CACNUM*10)+KEYCHAR,; 


END FOR; 

TP NEX PAC =0 
IF NEXTAC=1 
IF NEXTAC=e2 
TreeeNEXTAC=3 
(Ea NexTag =d 
IF NEXTACSS 
IF NEXTAC=6 
Peeve x TAC =/7 
TENE XTAaC=8 
rReNEXPACS9 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


ACO0=0 
AC1=0 
AC2=0 
AC 3=0 
AC4=0 
ACS=0 
AC6=0 
AC7=9 
AC8=0 
SESS 


Nex ACS=NEXTAC +1; 
IF NEXTAC=10 THEN NEXTAC:=0;7 END IF; 


TLOGIN: =0; 
END LOGIN; 


mene tTrION TLOGOUTs: 
BINARY,1,% 


SENSECKEYCHAR); 


END TLOGOUT; 
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ae 
THEN 
THEN 
THEN 
THEN 
Teiceat 
THEN 
THEN 
THEN 
THEN 


ACO3=ACNUM; 
ACL: =ACNUM; 
AC23:=ACNUM,; 
AC3:=ACNUM;, 
AC4:=ACNUM; 
ACS:=ACNUM, 
NCO s=aC Nu, 
SC? y= oC UM; 
AC8:=ACNUM; 
AC93:=ACNUM; 


END 
END 
END 
END 
END 
END 
END 
END 
END 
END 


ee 
ee 
IF; 
IF; 
IF; 
IF; 
ae 
Lee 
IF; 
IF; 





TASK LOGOUT; 
ACNUM:=0; 
FOR COUNT FROM 1 
SENSE (KEYCHAR); 
ACNUM: =(CACNUM*10) *KEYCHAR; 
END FOR; 


ACO=ACNUM 
AC P=ACNUM 
AC2=AC NUM 
RES=Ae Jy 
AC4Y=ACNUM 
ACS=ACNUM 
AC6=ACNUM 
A 7=aGNUM 
ACB8=ACNUM 
AC9=ACNUM 


TLOGOUT:=0; 


END LOGOUT; 


FJNCTION POSCH: 


BINARY, 


1; 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
Uinlsis 


Senob sCONENP IS); 
NENPOS=1 THEN POSCH:=1; 


IF 
END POSCH; 


TASK POSUPDATE; 


SENSE 


POSCH:=0; 
END POSUPDATE; 


MevevTiliON MSGIN: 
BINARY,1; 
SENOE H(MSSREADY); 

THEN MSSIN:=1;3 


IF MSGREADY=1 


END “SGIN; 


TASK MSGSTORE; 
SENSE (MESSAGE); 
ISSUE (MSGRCVO); 


oe 
IF 
ete 


NEXTMSG=0 
NEXTMSS=1 
NEXTMSSG=2 
NEXTMSSs: 
NEL MS> = 

VEX tMSG=5 
VEX woG=5 
NEXTYUSG=7 
NEXT“4S3=8 
Nex 4sG=9 


(POSITION); 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
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Tow dss Oe 


ROS =O; 
ACO3:=1; 
ACOsc=c, 
ACO:=3; 
ACO:=4; 
PG Oe a, 
ACO0:=6; 
ACOs3=7; 
AO So, 
ACQ:=9; 


ACO:=MESSAGE; 
AC1:=MESSAGE;3 
ACC: =MESSAGE; 
AC3:=MESSAGE; 
ACY: =MESSAGE; 
ACS:=MESSAGE; 
AC6:=MESSAGE; 
heave SStGe; 
ACB: =MESSAGE; 
AC9:=MESSAGE; 


END 
END 
END 
END 
END 
END 
END 
END 
END 
END 


eN 


IF; 
bey 
IF; 
IF; 
es 
tees 
IF; 
IF; 
IF; 
IF; 


Dar; 


END SIP; 


END 
END 
END 
END 
END 
END 
END 
ENDO 
END 
END 


IF; 
rs 
IF; 
Oa 
IF; 
IF; 
ae 
IF; 
IF; 
IF; 





NEXTMSGS=NEXTMSG+1;3 
MVE isc= Om te Ne VEXTMSG320; END IF; 
END MSGSTORE; 


PNT INGENCY LIST 
WHEN KEYENMAIN 3: 100 WS DO KBINPMAIN; 


WHEN MINTAC eee OL 4508 MNT AC; 
WHEN SMMANUAL +: 100 MS DO MANUAL; 
WHEN SMAUTO sb O0 MS DC AUTO; 
Weenie ole s 100 “4S DO POLLAUTO; 


Hae ioCATLON: 3 100 “MS DG EOCATION; 
WHEN TMLOCATION: 100 YS DO MANLOC; 

WHEN POSCH 7 1O0ONMowOC PUSUPDATE 
Amie veeaoGuoreyY ss 100 MS 500 MSGDSPLY; 
ieee eee soll | Pi00° MS DO CLOCKSET; 
WHEN MLOGINOUT =: 100 WS DO LOGINOUT; 


=e 


WHEN TLOGIN ; ot 00m is) DO LOGIN: 
WHEN TLOGOUT ; 1005RMS, 00 LOGOUT; 
WHEN MSGIN eee So UCU OOS TURE; 


END 


oe 





APPENDIX 8B 


CSDL PROGRAM 
GCREVISED) 


TDENTIFICATION 
DeotGNeR =: "SJTTER FOX" 
Pate = ~05=51-684" 
PeOgeet ese JAST GUARO DATA LINK RECEIVER” 


MeSIGN CRITERIA 
METRIC FIRST; 
VOLUMES 17 
MONITORS 13 


ENVIRONMENT 


Mew TsKEYFLG,1],f3Ls KEYCHAR,8,TILs MANPOS,8, TIL; 
meveOopls itis POSITIOV,8,fILs MSGREADY,1,TIL; 
MESSAGE,8,TILsACNUM,8, TIL; 

END INPUT; 


Seer ots MENU,&8,YTLe-°OLL,8,TILSMSGVDT,8,TIL:; 
MSGRCVO,1,TITL; 
BD OUTPUT; 


peeeenMETICs KEYINMAIN,8; MINTAC, 8s MMSGDSPLY, 45; 
MLOCATION,8+ MCLOCKSET,8;s WLOGINOUT,$7 SMMANUAL,8; 
SWMAUT9,8; ACO,8; AC1,8+- AC2,8; ACS,8; AC4KY,8-ACS,8; 
AC6,8; ACT,8; AC8,8; AC9,8; INTPERIOD,8; MSGO0,8; 
MSG1,8% MSG2,33 MSG3,-8;7 MSG4,3; MS65,8; MSGo,8; 
MSG7,8; MSG38,3; MSG9,8;TMLOCATION,8; TLOGIN, 1; 
TLOGOUT,1; NEXTMSG,8;s NEXTAC,8; TPOLL,1¢% COUNT,8; 
CLOCK,8; 

END ARITHMETIC; 


mec E DURES 


FINCTION KEYINMAINS 
BINARY,1; 
SE Noe ICKEYFLG) 7 
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IF KEYFLG=1 THEN KEYINMAIN: =1;3 


END KEYINMAIN; 


TASK KBINPMAIN; 


MENUs=0; ISSUE (MENU); 
SeNor. (KEYCAAR) 2 


TF KEYCHAR=1 

IF KEYCHA~=2 

TP KEYGHAaR=5 

IF KEYCHAR=4 

IF KEYCHAR=5 

KEY DA IN? =0; 
EVD KBINPMAIN; 


FINCTION MINTAC? 
BINARY,1; 


THEN MINTAC 


THEN MMSGDSPLY: 
THEN MLOCATION: 


THEN MCLOCK 


THEN MLOGINOUT: 


SENSECREYCHAR); 


END MINTAC; 


TASK INTAC; 


MENUs=1- ISSUE (MENJ); 
SENSE GKEYCAHAR), 
IF KEYCHAR=0 THEN KEYINMAIN: 


ime ke YCuAR =) 
MINTAC3=0; 
END INTAC; 


FINCTION SMMANUAL: 
BINARY,1; 


THEN SMVYMANUAL 3 
Pewee Vesna =- THEN SMAUTO = 


SENOECKEYCRAR); 


END SMMANUAL? 


TASK MANUAL; 


pean s sO ten POLL:=0; 
TF ACi/=0 THEN POLL?:=1; 
fieenGe/=-UNracN POLL ?=2e3 
peasy =-0 THEN POLL: =35; 
Meee ed7=0) P4EN POLL: sd; 
IF ACS/=0 THEN POLL:=25; 
Pp anAeo7-0 THEN POLL: 6; 
tenes 7—-Os AEN POLL?=7; 
Reeves /sOn 1 4EN POLL :3=A; 
menace 7=O07TSEN POLL: =9;3 


SMMANUAL:=0; 
END MANUAL; 
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SET 


ISSJE 
ISSJE 
ISSJE 
ISSJE 
PS JE 
Tosve 
LoVe 
ISSUE 
ome te 
Pos Je 


—_—> pee fet pet pet 


1 
1 
l 


ENOP TE, 


END eres 
END IF; 
END IF; 
ENO IF; 
EOS sray 


=e “Ge Ye “Se OE 


Poe DiSLE 
,; END IF; 
-; END IF; 


COLL), 
CROl Lk.) ; 
CPOLL): 
CRORE) 
CPOELDS 
CPOE), 
COLL) 
CPOEL), 
CEOEE).; 
CP GEL): 


END 
END 
END 
END 
END 
END 
END 
END 
END 
END 


ce 
rs 
IF; 
ea, 
IF; 
IF; 
IF; 
Ce 
IF; 
IF; 





BaNCTION SYAUTO: 
BINARY,1;3 
SN cient We We Tak) 7 
END SMAUTO; 


TASK AUTO; 
MENUs=e2e ISSUE CMENU); 
SENSE (KETEXAR), 


Dee y esos =O) (EN KEyerNMAIN s=5 21 ; END IF; 
Peewee Gane =— 1) TREN INTPERTOD <= 50 ¢- END IF; 
Paes redane=e THEN TYITPERIOD := 20 ; END IF; 
Moe Gnae=-SetheN INTPERTOO s= 15 ¢ END IF; 
fpe ie veneers tetHeN TNTPERTOD s:= 10 - END IF; 
Piece werax=>5 THEN ITVIPERTOD s= 5 ¢ END IF; 
teererenroe=6 THEN ENTPERTOD s:= 1 ; END IF; 


Seno COLIC<); 
Pg 4G s= CEOCK; 
SWVAUTO:=90; 
TPOLLs=1; 

Eeup AUTO? 


FINCTION TPOLLs: 

BINARY,1; 

SeVSoE  (CLOC%); 

Peeeeek=—-(NTTIME > INIPERIOD THEN TPOLL:S=1; END IF; 
eee TPOLL; 


foonk POLLAUTO: 
ir eee O7=0 FAEN POLL: 
Pee owei7v=e0 FHEY POLL: 
TF AC2/=0 THEN POLL: 


UpelosUEa cr OE); END IF; 

lym SovE Cr OLL)7 END [Fs 

EE OSUE LPORW)> END IF? 

hose o7 =O TIEN POLL¢=5;, ISSUE (POLL); END IF; 
meee 47-0 THEY POLL: =4; ISSUE (POLL); END IF; 
Beeeeo7 =O) IGEN POLELS=5; ISSUE (POLL);> END IF; 
feweemosy—0 1 4eE VY POLEL:=6; ISSUE (POLL); END IF; 
foto 7= 0 HEN POLL 3=7; ISSUE (POLL); END IF; 
ieee eo7=-0 THEN POLL:=68; ISSUE (POLL): END IF; 
IF AC9/=0 THEN POLL3=97 ISSUE (POLL); END IF; 
TPOLL:=0; 

EVD POLLAUTO; 


Te ee 


FINCTION MMSGDOSPLY: 
BINARY,1; 
SENSE (KEYCHA); 
END MMSGDSPLY; 


TASK MSGDSPLY; 
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MioGVviDNs=Mob07; ITSSUE(MSGVDI); 
Mowe e=MoGl, ASSUE(MSGVDI); 
MSGVDT3:=MSGe; ISSUE(MSGVDT); 
MSGVDT:s=MSG3s ISSUECMSGVDT); 
MSGVOT:S=MSG4s ISSUE(MSGVDT); 
MSGVDOT:=MSG57 ISSUE(MSGVDT); 
MSGVDT:=MSG6; ISSUEC(MSGVDT); 
MSGVDT:=MSG7; ISSUE(MSGVDT); 
MSGVNT3=MSG8; ISSUE(MSGVDT); 
MSGVDTs:=MSG9; ISSUE(“SGVDT); 
MMSGDSPLY:=0; 
END MSGDSPLY; 


FINCTION MLOCATIONS 
BINARY,1; 
SENSE (KEYCHAR); 
END MLOCATION; 


TASK LOCATION; 
MENU? =3; ISSUE (MENU); 
SENSE (KEYCAAR); 


IF KEYCHAR=0 THEN KEYINMAINe =1;5 END IF; 
IF KEYCHAR=1 THEN NEWPOS:=17 END IF; 
IF KEYCHAR=2 THEN NEWPOS:=0-7 TMLOCATION:=1; END IF; 


MLOCATION:=0; 
END LOCATION; 


meNCTION TMLOCATION: 
BINARY,1; 
SENSE CKEYCHGR); 
END TMLOCATION; 


TASK MANLOC; 
SENSE (MANPOS); 
POSITION: =MANPOS; 
TYLOCATION:=0; 
EVD MANLOC; 


meci+lION MCLOCKSET: 
BINARY,1; 
SENSECKEYCHAR); 
moe MCLOCKSET; 


meron CLOCKSET; 
MENUS=4; ISSUE (MENU); 
SENSE CKEYEAAR):, 
MeEOENSE I. =0; 

EVD CLOCKSET; 
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FINCTION MLOGINOUT: 
BINARY,1; 
SENSE @GEYCA4R); 
END MLOGINOUT; 


TASK LOGINOUT; 
MENU:S=S5; ISSUE (CMENJ),; 
Seiioe CXEYCHAR); 
IF KEYCHAR=0 THEN KEYINMAINe =1; END IF; 
IF KEYCHAR=1 THEN TLOGINs=1; END IF; 
IF KEYCHAR=2 THEN TLOGOUT:=1; END IF; 
MLOGINOUT:=0; 

END LOGINOUT; 


PeNCTION FTLOGIN: 
BINARY,1; 
DENSE CKEYCHAR), 
END TLOGIN; 


TASK LOGIN; 
AGNUM:=0; 
SENSE CACNUM); 


IF NEXTAC=0 AND ACO=0 THEN ACO:=ACNUM; 
IF NEXTAC=1 AND AC1=0 THEN AC13=ACNUM; 
IF NEXTACS2 AND AC2=0 FHEN AC23=ACNUM,; 
Cea ae oA ACS=0 THEN AS045s=ACNUM; 
Wee NES ne =4 AND ACSSO THEN ACU: SsACNUN; 
IF NEXTAC=5 AND ACS5S=0 THEN ACS3=ACNUM; 
Pe NEXTAC=6 AND AGC6=s=0 THEN ACG; =SACNUM, 
IF NEXTAC=7 AND AC7=0 THEN AC73=ACNUM, 
Dene «Tabac AND ACB=0 THEN ACB: =ACNUM; 
IF NEXTAC=9 AND AC9=0 THEN AC93=ACNUM; 
NEXTAG =NEXTAC+1; 

TF NEXTAC=10 THEN NEXTAC:=03; END IF; 
TLOGIN:=0,; 


END LOGIN; 


mexsctTiON FLOGOUT: 


BINARY,1; 
SENSE CKEYCHAR); 


END TLOGOUT; 


TASK LOGOUT; 


ACNUM:=0; 

SEN ECAC WU). 
IF ACOSZSACNUM THEN ACO:=03; END IF; 
Pee AC TSACNUM THEN ACOt=si> END IF; 
ema Ge-ne YUM THEN ACOs=e; END IF; 
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END 
END 
END 
END 
END 
END 
END 
END 
END 
END 


IF; 
IF; 
IF; 
IF; 
DER 
IF; 
TF ; 
IF; 
lies; 
IF; 





reece $=AC VUM 
Peat d= Ac YUM 
TP ACS=hCNUM 
IF AC6=ACNUM 
IF AC7=ACNUM 
IF AC8=ACNUM 
IF AC9=ZACNUM 
TLOGOUT:=0; 
eu LOGOUT; 


meet l1ON POSCH: 
BINARY, 1; 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


Sinise ONE ANP 3S) 7 
IF NEWPOS=1 THEN POSCH:=1,; 


eb POSCH; 


ieee POSUPDATE; 
SENSE (POSIT) 
OND Bg Bast 0) 

EVD POSUPDATE; 


FINCTION MSGIN: 
BINARY,1; 


ON); 


SENSE (MSGREADY); 
THEN MYSGINeG =1, 


IF MSGREADY=1 
END MSGIN; 


eos ASGSTORE; 


SENSE (MESSAGE); 
ISSUE (MSGREVD); 


fee Nex iMoG=0 
IF NEXTMSG=1 
IF NEXTMSG=e 
Peeve Xx IMSG= § 
IF NEXTMSG24 
IF NEXIMSG=e5 
IF NEXTMSG=s 

IF NEATMSGS7 
IF NEXTMSG=8 
IF NEXTMSS=9 


IF NEXTWSG=10 THEN NEXTIMSG3=0; 


END MSGSTORE; 


CINTINGENCY LIST 


tie 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


NHEN KEYINMAIN 2 
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ACO:=3, 
ACO3=4; 
ACO:=5; 
ACOs:= 

ACO:=7; 
ACQ:=8; 
AC03:=9; 


END 
END 
END 
END 
END 
END 
END 


IF; 
IF; 
Wiheaty 
IF; 
IF; 
IF; 
IF; 


NOPE s 


END IF; 


REOs=MESSAGE; END 
BETS=VMESSAGE, END 
BC eCl=MESSAGE?S END 
AC3:=MESSAGE?; END 
ACSS=MEDOAGE;, END 
ACSS=sMESSAGE; END 
ACbob:=MESSAGE; END 
Mei =MeEoO koe, SEND 
ROB S=“MESSAGE;, END 
NOG =4ESSOGE; END 
NEXTMSGSSNEXTMSGe1; 


Ge 
IF; 
IF; 
IF; 
IF; 
IF; 
IF; 
IF ; 
IF; 
Le 


END Le 


LOUIS DOS <STNPMAIN; 





END 


WHEN 
WHEN 
WHE N 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 


MINTAC 
SMMANUAL 
SMAUTO 
LPOEL 
MLOCATION 
TMLOCATION 
POSCH 
MMSGDSPLY 
MiCeOien oe 
MLOGINOQUT 
TLOGIN 
TLOGOUT 
MSGIVN 


ee ¢8@ 68 86 686 


100 
100 
100 
100 
100 
100 
1000 
100 
100 
100 
100 
100 
100 
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MS 


MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 


INTAC; 
MANUAL; 
AUTO; 
POLLAUTO; 
LOCATION; 
MANLOC; 
POSUPDATE 
MCD OR LY 
CEOCK SE hz 
LOGINOUT; 
LOGIN; 
LOGOUT; 
MSGSTORE; 


=< 





mewgenerated for: oYSTE™ 


APPENDIX C 


Bava no OUTPUT 
PRIMITIVE LISTING 


Kamae Ka KKK aRa AK KKK Kaa K 


€s.nain Co5) 

l6s.var (KEYINMAIN: 8,0) 
17s.var (MINTAC?8,0) 
18s.var (MYVSGDSPLY:8,0) 
19s.var (MLOCATIONS 8,0) 
20s.var (MCLOCKSET:8,0) 
els.var (MLOGINOUT: 8,0) 
ees.var (SYMANUAL: 8,0) 
e3s.var (SWAUTO: 8,0) 
CYs.var Cie0 2270) 
eSs.var CAG 3,0) 
C6s.var (Ace35,0) 
e7s.var Che3556, 0) 
e8s.var (AC4:8,0) 
°9s.evar Ci g525,0) 
30s.var CAC 63 8,0) 
Bis.var (AC7:8,0) 
Ses.var (AC838,0) 
33s.var (AC938,0) 
34s.var (INTPERIOD: 8,0) 
35s.var (4360287 0) 
Sos.var (4sG133, 0) 
$7s.var CMsG2e-a,, 0) 
ees.var (MSG3:8,0) 
39s.var (MSG4:6,0) 
4O0s.var (MS565:6,0) 
Gis.var (MSG6:8,0) 
Ges.var (MSG7:8,0) 
G3s.var CHS G5 26,0) 
44s.var (MSG9:8,0) 
45s.var CPMECCATION: 8,0) 
46s.var (TLOGIN:1,0) 
G7s.var (TLOGOUT:1,0) 
48s.var (N=XTMSG:8,0) 
“9s.var (NEXTAC?3G,0) 
mes .var CT ore <1, 0) 
Sis.var (CIUNT:8,0) 
Bes.var (CLOCK :8,0) 


wUuUVUr OU UU UU UTM U UVM UuU Ue UU Ul lo OU Uo mo UuU hmlUlL mU Llu Uru hUUlLlUULrhUuUUlmOUULmLU LU loll lca mc 


53t.generated for: KEYINMAIN 
kame kk keke here ahe Keke aKeKa RK kk 
Bas .Oroc (KEYINMAIN?:) 
S55s.esensecond (KEYFLG2:1) 
56s.eQq (ATOL,KEYFLG,0C01:83,1,8) 
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57 Si. imof 
S58s.assian 
Eas. loc 
60s.exitoroc 
61t.3enerated 


62S.0roc 
63s.assiaqn 
64s.issuevent 
65s.sensecond 
66s.eq 
67s.jmof 
68s.assign 
69s.loc 
70s.eq 
7lsejmnof 
725.a8Si9N 
73s.loc 
74s.eq9 
7Ss.jmof 
76S.assign 
mrs. loc 
78s.ea 
79s.jmof 
B80s.assign 
Bls.loc 
82s.e2aq 
83s.jmof 
B84s.assign 
Bos.loc 
86s-.assign 
87s.exitoroc 
B8t.generated 


S9S.°2roc 
90s.sensecond 
9is.exitoroc 
92et.generated 


73s.0roc 
94s.assian 
9S5s.issuevent 


97s.ea 

98s.jmof 

99s.assign 
monis.loc 
101s.eq 
102s.jmof 
103s.assign 
104s.loc 


WVU COU 0 UU UU Ue ue e US UMC UUUU UU UU UU Go tO Oh of ll ol} lUoUlhL OOo 


(d9T01,0013 38) 
(KEYINMAIN, AC01:1,8) 
(d013) 

C(KEYINYAIN, KEYINMAINS } 
for: KBINPMAIN 


REKKKKERKEKKAKKKKKREKEK 


(KZ3INPMAINS ) 

(MENU, @C0238,8) 

(MENUS: 8) 

(KEYCHAR: 8) 
(ATOL,KEYCHAR,29C01:3:8,8,8) 
(dTO1,002:8) 
(MINTAC,@C01:38,8) 

(9022) 

(at0T, KEYCHAR, 70C05338,8,8) 
(dTO01,003:8) 

CYASSDSoPEyY, 700135 ,8) 
(1033) 
(dTO01,KEYCHAR,1C04:8,8,8 
(7T01,9043 8) , 
(MLOCATION,9C01:8,8) 
(d043) 

Caos we CHAR, 7C0S:3,8,4) 
(d7T01,9053 8) 
GACEVECKSEI,d6e0138,8) 

C305 .)) 
(aTO01,KEYCHAR,2C06:8,8,8) 
(dT01,90063 8) 
(MLOGINOUT,2C01:8, 8) 
(d063 ) 

(KEYINMAIN, @ACOC:1,38) 
(K3INPMAIN, KBINPMAIN: ) 
for: MINTAC 


Ke HRA EKRKKKaKKKK 


(MINTAC?) 
(KEYCHAR: &) 
(MINTAC,MINTAC? ) 
fom cent AC 


KEKE KEKKRAKKKKKKAKKE 


(INTAC:) 
(MENU, @9C0138,8) 
(MENU?:8) 


96s.sensecond (KEYCHAR: 8) 


(VTOL,KEYCHAR,(@C02:8,8,8) 
(dT01,00738) 
(KEYINMAIN,9C01:1,8) 
(1073) 
(VTOL,-KEYCHAR,29C01:38,8,8) 
(dT01,9008:8) 
(SYMANUAL, 23001: 8,8) 
(d083) 
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LOSs .eq 

106s. jmof 
107s.assign 
mOSs.loc 
109s.assign 
110s.exitoroc 
llit.aenerated 


(dTO1,KEYCHAR,@C03: 5,8, 8) 
(d701,709:38) 

(SYAUTO, 9C01:38,8) 

(0093) 

(MINTAC,2C02:1,8) 

CINTAC, INTAC? ) 

for: SMMANJAL 


KARR AKKaEKKKAERKEKKKR 


Lies.oroc 
113s.sensecond 
114s.exitoroc 
115t.generated 
Kaa Ke Kaa KKK 
116s.oro0c 
117s.ne 

mos. imof 
119s.assign 
1°e0s.issuevent 
Mels.loc 
l2eés.ne 

We 5S.jmof 
124s.assign 
125s.issuevent 
i6s.)oc 
l127s.ne 
neos.jmof 
12e9s.assian 
130s.issuevent 
mois.loc 
13es.ne 
133s.jmof 
im4s.assign 
135s.issuevent 
moos.!oc 
137s.ne 
138s.jmof 
139s.assign 
1490s.issuevent 
141s.loc 
142s.ne 
143s.jmof 
144s. .assign 
145s.issuevent 
146s.loc 
1497s.ne 
148s.jmof 
149s.assign 
150s.issuevent 
mols. loc 
1S52és.ne 
153s.jmof 


(SMMANUALS?) 
(KEYCHAR: 8) 
(SYMANUAL, SMMANUAL? ) 
for: MANUAL 

kk * 

(MANUALS? ) 
(VT01,AC0,9C0238,8,8) 
(VT01,-91038) 

(PILL, IC0238,8) 
Ce ie 3.) 

Cano) 
(dT01,AC1,29C02: 8, 8,8) 
(dT01,011:8) 
(POLL,@C01:8,8) 
CEI: 8) 

C(d1ii3) 
(dT01,AC2,9C0238,8,8) 
(ATOLL, 21238) 
(PILL-9003:38,8) 

Ce amies-33} 

Callizs)) 
(AdT01,AC3,9C02: 8,8, 8) 
(dT01,901538) 
(PILL-27C04:8,8) 
(EOE: 38) 

Cael 53) 
(d9T01,AC4,29C02:3,8,8) 
(dT01,01438) 
(PILL,-@0C05:8,8) 
(PORES) 

(0143) 
(dT01,AC5,7C02:8,8,8) 
Cat Oloal53;3) 
(PILL,@C06: 8,8) 
Giles 3) 

(2152) 
(d97T01,AC6,29C02: 38,8,8) 
(aT01,a1603:8) 
CRolbir dl 07 2854) 
(PoUEs Ss) 

(9163) 
(dT01,AC7,9C02: 8, 8, 8) 
(dT01,01738) 


ie 





»» 


»* 
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Po4s.assign (PIR, alos: 8,8) 
155s.eissuevent (PILL: 8) 


Hoos. loc Caley = } 

157s.ne (d97101,4C0C8,29C002:8,8,8) 
1S8s.jmof (aTO1,0182:8) 
159s.assign (PILL, 3C09: 8,8) 
160s.issuevent (POLL: 8) 

Mols.loc (7183) 

lo6es.ene (dVT01,AC9,27C0238,8,8) 
moos. jmof (dT01,0192: 8) 
164s.assign (PobEynG10:38,8) 
16S5s.issuevent (POLL:8) 

Neos.!loc (919:) 

lo7s.assian (SMMANUAL,2C002:1,8) 


168s.exitoroc (MANUAL,MANUALS ) 
1609t.a3enerated for: SMAUTO 
Kawa a KAKKRa KKK KR 

lbs. oroc (S¥AUTO: ) 
Myis.sensecona (KEYCHAR:8) 
L7es.exitoroc (SYAUTO,SMAUTO? ) 
17/3t.g3enerated for: AUTO 
KAeaAKRK KK Keak Kea Kea Ka KK LE 


174s.0r0c (AJTO?3 ) 

moos. assiaqn (McNU,0C03:8,8) 
176s.issuevent (MENU:8) 

177s.sensecond (CKEYCHAR: 8) 

178s.eq (aTOL,KEYCHAR,@AC0C: 8,8,8) 
179s.jmof (2T01,9020:8) 

180s.assign CKEYINMAIN, 2C0131,3) 
Hens. toc (a20:) 

18es.ea CATOL,KEYCHAR,1C001:8,8,8) 
183s.jmof Carol ,a2l: 8) 

184s.assign CIVNTPERIOD,AaC11:8,8) 
me5s.loc (d213) 

186s.eq CATOL-KEYCHAR,9C03:38,8, 8) 
mey7s.imof (dTO1,a2238) 

Meese assign (INTPERIOD,aC12: 8,8) 
He9s.toc (d2e:) 

190s.eaq (aTO01,KEYCHAR,@C04:38,8,8) 
191is.jmof (ATO01,923: 8) 

192s.assign CINFPERIOD,9C13:8,8) 
moos. Woc (ad233) 

194s.eq CatOT, KEYCHAR,@9C05:5,8,8) 
ios. jimof (dTOL,92438) 

n96s.assign (INTPERTOD,9C14:8,8) 
ime7S.loc (24:3) 

198s.eaq (ATOL-KEYCHAR,9C06:8,8-,8) 
199s.jmof (al 01,a25: 8) 

C00s.assign CINTPERIOD,aC06: 8,8) 
@01ls.ioc (9253) 

C0es.egq (aT01,-KEYCHAR,@C0/7258,8,8) 
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C03s.jmof 
C04s.assign 
Boas. loc 
206s.assian 
C07s.assign 
208s.assign 
C09s.exitoroc 
el0t.generated 


RHRKKRKEAKKRAEKKKK 


evls.oroc 
2les.subd 

eos .gt 
Cl4s.jmof 
€15s.assign 
Pyois.loc 
el7s.exitoroc 


el8t.generated 
Kaa KKK 


€19s.oDroc 
ece0s.ne 
eels.jmnof 
Cees.assign 
ee3ss.issuevent 
ee4us.ioc 
22eSsene 
ecbs.jmof 
€2's.assign 
ecefs.issuevent 
229s.loc 
250s.ne 
CSsisejmof 
232s.assign 
e33s.issuevent 
254s.loc 
235s.ne 
CS56s.jmof 
237s.assign 
258s.issuevent 
239s.loc 
C40s.ne 
C41s.jmof 
C42s.assign 
243s.1Ssuevent 
C44s.loc 
245s.ne 
C46s.jmof 
C47s.assign 
C4&s.issuevent 
249s.loc 
250s.ne 
CSslis.jmof 


(9TO1, 72628) 
CINTPERIOD, #C01:28,8) 
(ad263 ) 
CINTTIME,CLOCK:8,8@) 
(SYAUTO,adC02:1,8) 
CTeOvE vel? 1,8) 
C(AJTO,AUTO: ) 

COG. OL L 

kx 

CT eeue:) 
(aT01,CLOCK,INTTIME:8,8,8) 
(ATOL,ADTOIL,INTPERIOND:8,8,8) 
(AaTOL1,d2738) 
(TPOLL,-aC01:1,8) 

(a27 3) 

CTeObe, VeOEE: ) 

fore seo AUTO 

xxk 

(PILLAUTO:) 
(dT01-AC0,9C02: 8, 8, 8) 
CATO1,a0283:8) 
(POLL,97C0C02:8,8) 
(em: 3) 

(d28: ) 
(9T01,AC1,9C02:83-8,8) 
(VT01,9029:8) 

CLoabl, dl01:8,8) 

CRO 28.) 

(a293) 
(ATO01,AC2,9IC02: 8-8, 8) 
(dT01,930:8) 
(PILL,9C03:38,8) 

CP ae ?.8.) 

(9303) 
(VT01,AC3,90C02:8,8,8) 
(d7T01,05128) 
(POLL,@C043: 8,8) 

rile ele). 

G31: ) 
(A9T01,AC4,9C02: 8,8,8) 
(ATO1,952:8) 

(POLL ,aC05:8,8) 
CPI. 3) 

(a32:) 
(YTO1,AC5,9C023: 8, 8,8) 
(J97101,053:8) 
(FUER ae 05. 6,6) 

CPI S68) 

Ca 559) 
(d9T01,AC6,9C02: 8,8, 8) 
(97T01,954:8) 
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me CS. assign Revie 07: 8, 8) 

P 253s.issuevent (PILL:8) 

mee o4s. loc (d343) 

P 255s.ne (JFO1,AC7,29C0C0238,8, 8) 
P 256s.jmof (9T01,03538) 
Pee>/s.assign (PIU IE08:8,8) 

P 258s.issuevent (POLL:8) 

P 259s.loc (7355) 

P 260s.ne (aroueneco, 1C02358,8,3) 
P 261s.jmof (aT01-03638) 

P 262s8s.assign (PURE, al 09:8, s) 

P 263s.issuevent (POLL: 8) 

P 264s.loc (3632) 

P 265s.ne (a101,AC9,290C02:8,8,8) 
P 266s.jmof (aTO1,903738) 

P 26/7s.assign (POLL,@C10:8,8) 

P 268s.issuevent (PILL: 8) 

P 269s.loc (a373) 

P 2/0s.asSi9N (TPOLL,a@C02:31,8) 

P 27is.eexitoroc (POLLAUTO,POLLAUTOs ) 
P 2/et.generated for: MMSGDSPLY 


Ka K KKK K KEK RARE KKE 

me? 3S.0Pr0C (MMSGDSPLY: ) 

P 274s.sensecond (KEYCHAR: 8) 

P 2/75s.exitproc (MYSGDSPLY,“MSGDSPLY:) 
P>e/76t.3enerated for: MSGDOSPLY 

KKK REAR KAKRRRRKERKL 

PY 7S.0Oro0c (MSGOSPLY: ) 
278s.assian (MSGBVDOT,“SG60:8,8) 
279s.issuevent (MSGVDT:8) 
280s.assign (MSGVDT,MSG1:8,8) 
PBils.issuevent (MSGVDT:8&) 
C82s.assiqn (MSGVDT,“SG2:8,8) 
C83s.issuevent (MSGVDT:8) 
284s.assign (MSGVDT,MSG3:8,8) 
285s.issuevent (MSGVDT:8) 
286s.assian (MSGVDT,“SG4:8,8) 
CB7s.issuevent (MSGVOT:8) 
288s.assign (MSGVDT,MSG5:8,8) 
289s.issuevent (“SGV0OT:8) 
290s.assign (MSGVOT,MSG63 8,8) 
291s.eissuevent (VSGVDT:8) 
292s.assign (MSGVOT,MSG7:8,8) 
293s.issuevent (MSGVDT:8) 
2945.aSs19" (MSGVOT,YSG8: 8,8) 
295s.issuevent (MSGVOT:8) 
296s.assign (MSGVDT,“SG9: 8,8) 
C97s.issuevent (MSGVDIT:8) 
298s.assiagn (MMSGDSPLY,9C02:1,8) 
C99s.exitproc CMSGOSPL Ys 4SGOSPLYs: ) 
300t. generated for: MLICATION 


VTUVDVVUVUVVUVVUVUVUV PV BeBe UGB eee 


le 





wma e Raa aKa KaRa Kaa KR Ka KR 

pmoUlS.Oroc (MLOCATION: ) 

P 302s.sensecond (KEYCHAR:8) 

P 303s.exitoroc (MLOCATION,MLOCATION: ) 
P 304t.generated tor: LOCATION 

maa Raa K RRA KKRE 


P 305s.0roc (LICATIONS) 

P $06s.assiqn (MENU,9AC04:3 8,8) 

P 307s.issuevent (MENU:8) 

P 308s.sensecond (KEYCHAR: 8) 

P $09s.eaq (daTOL,KEYCHAR,@AC02: 8,8,8) 
fol Os. jmof (d7T01,03838) 

P 3lis.assign (KEYINMAIN, @CO121,8) 
Eeeoles.toc (2383) 

p 313s.eq (dTO1L,/-KEYCHAR,90C01:8,8,8) 
P 314s. .jmof (dT01,9039:8) 

Pp 315s.assiagn (NEWPOS, 2CO131,8) 

P 316s.loc (9393) 

P 317$.29q (ATOL-KEYCHAR,2C03:8,8,8) 
Po 6s.jmof (dT01,a04038) 

P 319s.assign (NEWPOS,@C02:1,8) 

P 320s.assign (TALOCATION,@C01:8,8) 

P 32is.loc ()403 ) 

P 32es.assign (MLOCATION,aC02:1,8) 

P 323s.exitoroc (LICATION,LOCATION: ) 

P 324t.generated for: TMLOCATION 


RAaEKKKAKARaKRaARKEKRaREK 

poe 5S .2roc (TYLOCATIONS: ) 

P 326s.sensecond (KEYCHAR:8) 

P 32e7s.exitoroc (CTYLOCATION, TMLOCATIONS ) 
P 3$28t.g3enerated for: MANLOC 


RKKEKKKKK KARR REKE KK KR 


poe oS.oroc (MANLOCs ) 

P 330s.sensecond (MANPOS: 8) 

pesos. assign (PISITION, MVANPOS:8, 8) 
P 332s.assign (TMLOCATION,AC0231,8) 


P 333s.eexitoroc (MANLOC,MANLOC: ) 

P 334t.generated for: MCLOCKSET 

keene aR aaa R aK Ra Ka KR aR 

Peo oS. Oroc (MCLOCKSET:) 

P 336s.sensecond (KEYCHAR: 8) 

mor s.exitoroc (MCLOCKSET,MCLOCKSET: ) 
peooct.generated for: CLOCKSET 

Rama EKKKRKKRKR KEKE 

339s.oroc COEOCK SET?) 
$40s.assiaqn (MENU,@C05:8,8) 
341s.issuevent (MENU: 8) 
342s.sensecongs (KEYCHAR: 8) 
343s.assign (MEEQCKSETsa@C0c: 1,38) 
344s. .exitoroc COPPER Se Tl ,eeOEKSET =: } 
345t.agenerated for: MLOGINOUT 


vv VD DU UU Uv 
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KmAEKKKK RK KKEKKKKRAKA KK 

mes cOoS,Oroc (MLOGINOUTs ) 

P 347s.sensecond (KEYCHAR: 8) 

P 348s.exitoroc (MLOGINOUT,MLOGINUOUT: ) 
P 349t.a3enerated for: LOGINOIUT 


KKEEKEKKKKAERKEKKEARKEKEKK 


mes 0S.aroc (LOGINOUT:) 

P 351s.assian (MENU,9C0638,8) 

P 352s.issuevent (MENU: 8) 

P 353s.sensecond (KEYCHAR: 8) 

P 354s.eq (ATOLL, KEYCHAR, 90023 8,8,8) 
P 355s.jmof (dT01,904138) 

P 356s.assign (KEYINMAIN, 300121, 8) 

P 357s.loc (d413:) 

P 3$58s.ea (A9TO01,KEYCHAR,9C01:8,8,8) 
P 3$59s.jmof (aTO1,04228) 

P 360s.assigqn (TLOGIN, dCO1:1,8) 
BesotsS.loc (d4??) 

P 362s.eq (aTO01,KEYCHAR,9C03: 8,8, 8) 
P 363s.jmof (9T01,043:8) 

P $64s.assign (TLOGOUT,29C0131,-8) 

moO 5S.!10C (d433) 

P $66s.assign (MLOGINOUT,2C02:1,8) 

Bo o7S.exitoroc (LIGINOUT,LOGINOUTs: ) 

P 368t.aenerated for: TLOGIN 


KKM KEKMKEKKEKKEKKEKEKKKKEK 

P 369s.0roc (TEOGIN:) 

P 370s.senseconds (KEYCHAR?: 8B) 

P 3/is.exitoroc (CTLOGIN, TLOGIN:) 


P 37et.generated for: LOGIN 

KKK KHRKKAKEHRKEAKKKKKEK 

pees? 5S.2roc (LOGIN: ) 

P 374s.,assign (ACNUM,@C02:8,8) 

P 375s.sensecond (ACNUM:8) 

P 376s.eq (ATOL,NEXTAC,0C02: 3,8,8) 
P 3775.20 (ATO2,ACO,a2C022 8,8, A) 

P 378s.and (VTO01,9T01,907T0238,8,8) 

P 379s.jmof (9101,0443 8) 

BP 500s.assign (ACO,ACNUM: 8,8) 

P 381s.loc (a442:) 

P 38es.eq (aTOL1,NEXTAC,0C0138,8,8) 
a 383s.eq (dT02,AC1,292C002:8,8, 8) 
Peeso4us.and (9701,90T01,9T02: 8,8, 8) 

P 385s. jmof (J7101,04538) 

P $86s.assign (AC1,ACNUM:8,8) 
Eeoo7sS.loc (9453) 

P 388s.eaq (aFO1,NEXTAC,0C03:8,8,8) 
P 559s.eq (dTO2,AC2, 21002: 8,8, 8) 

P 390s.and (ATO1,dTOL,aT02: 8,8, 8) 

P 391s. jmof (9701,0462 8) 

P 392es.assigqn (Ale, ACNUMs: 8,8) 
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ma5s.loec 
394s.eq 
395s.eq 
396s.and 
397s.jmof 
398s.assign 
399s.loc 
400s.eq 
401ls.ea 
402s.and 
403s.jmof 
404s.assian 
405s.loc 
406$.29 
407s.ea 
408s.and 
409s .jmpof 
410s.assign 
4Glis.loc 
4ies.eq 
413s.ea 
414s.3n9d 
415s .jmof 
4Qlos.assign 
417s.loc 
418s.eq 
419s.ea 
420s.and 
ens. jmof 
42e2s.assign 
42e3s.loc 
424s.eq 
425s.eq 
426s.and 
427s.jmof 
428s.assiaqn 
429s.loc 
430s.ea 
43is.eq 
432s.and 
433s.jmof 
4$34s.assign 
435s.loc 
436s.add 
437s.assign 
438s.eq 
439s.jmof 
440s.assiagn 
4U1s.loc 
442s5.aSSi19N 
443s.exitoroc 


(d463) 
(JdTO1,NEXT4C,9C04:8,8,8) 
(aT02,4C3,90C0228,8,8) 
(ATO1,9T01,9T0238,8,8) 
(9701,04728) 
(AC3,ACNUM: 8B, 8) 

(d473) 

Coro exTAC,@dC05:53,5,8) 
(dT02,AC4,29C023:8,8,8) 
(ATOL,ATOL,adTOC: 8,8, 8) 
(VT01,048:8) 
CAS4,FACNUM: 6, 8) 

(d4B83) 
(dTO1,NEXTAC,0C063: 8,8,8) 
(adTOC,ACS,27C02:8, 8,8) 
(dTO01,d3T01,3T02C3 8-8-8) 
(d7191,9493 8) 

(ACS,ACNUMS 8,8) 

(A493) 
C(Q2TOL,NEXTAC,9C07:8,8,8) 
(aTO02r,AC6-9C902C2 8,878) 
(dTO1,adTO1,adT0C28,8,8) 
(d701,9050:8) 
Caco, ne NUM 26, & ) 

Cao.) 
(ATOL,-NEXTAC,3C08:8,8,8) 
(aTO2,AC7,39C0C3 8,8,8) 
(A9T01,9T01,9T023 8,8, 8) 
(J701,9051:8) 

CAG PACHIUM: 38,5) 

(a513) 

(a1O1l,NEXTAC, aC09:8,8,8) 
(dT 02,AC8,9C02:28,8,8) 
(VT01,0T01,977T0235,8,8) 
(dT01,052e3 8) 

(ACB, ACNUMS 8,8) 

(d5e:) 
C(A9TOL,NEXTAC,9C1038,8,8) 
(ai0c, 4069, 100238 ,8, 8) 
(aT O01, a701,a702:5,83,8) 
(9701,95338) 

(AC9,ACNUM: 8,8) 

ies: 
CQVTOL,NEXTAC,27C001:38,8,8) 
(NEXTAC,9T013°8,8) 
(AVTOL,+NEXTAC, 9C1438,8,8) 
(V7T01,054:8) 
(NEXTAC,aC02:8,8) 

()543) 

(TLOGIN, 9C0221,8) 
(LUGIN,LOGINs: ) 
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P 444t.generated for: TLOGOUT 


wa KKK KK AK KKKK KK 
P 445s.°roc 


P 446s.Sensecond 
P 447s.exitoroc 

P 448t.generated 
KKK KKK KKK AKRKSE 


VV VV VV VV VV BUBB UC VC BT CCU TC UCU UC UC UC UTC UC UTC TC UTC UTC UC UC UC UC TTC UU UlULUULOU UU 


44U9s.oroc 
450s.assian 


4Sis.sensecond 


452s.eq 
453s.jmof 
QS5S4s.assign 
meas. }oc 
4565.29 
4S57s.jmof 
458s.assign 
959s.loc 
460s.eq 
Go1s.jmof 
462s.assign 
463s5.loc 
464s,eq 
465s.jmof 
466S.assign 
467s.loc 
468s.eq 
4Y69s.jmof 
470s.assign 
G71is.loc 
472s.eq 
473s.jmof 
474s.assign 
475s.loc 
476s.eq 
4“77s.jmof 
478s.assign 
479s.loc 
480s.eq 
481is.jmof 
482s.assign 
483s.loc 
484s5.eq 
48Ss.jmof 
4868.38S19N 
mers .\loc 
488s.eq 
489s.jmof 
490s.assign 
491s.loc 
4Y9e@s.assian 


(TLOGOUT: ) 

(KEYCHARs & ) 
(Tegcewi, iL IGOUT: ) 
fone EUGOUT 

kx 

(LOGOUT: ) 
(ACNUM,(@C0e: 8, 8) 
(ACNUM: 8) 
(dTO1,AC0,ACNUMS8,8,8) 
Cal ld) 5530) 
(AC0O,a9C0203 6,8) 

(a55:) 
(dT01,AC1,4CNUMS 8, 8,8) 
(d701,756: 8) 

(ACU DJEOT:6,4) 

(0563 ) 
(9T01,AC2,ACNUM: 8,8,8) 
(JdT01,957:8) 

(AGU, Agb05: 3,8) 

(a573) 
(a101,AC3,4CNUM:8,8,8) 
(dTO1L, 958: 8) 

Cie Odie Ou Sy 8 ) 

(aig. 
(dT01,AC4-ACNUM: 8,83,8) 
(9701,9059:8) 

C4207 4aC05:8,8) 

(9593) 

(d7T01,ACS,4CNUMS? 8,8,8) 
(9T01,0603 8) 

CGO, 7606: 6,6 ) 

Ciys0s.) 
(d7T01,4C6,4CNUM: 8, 8,8) 
(d101,061:8) 
(AC0,0C0738,8) 

Cae 12) 
(d7T01,AC7,ACNUM: 8, 8,8) 
(ATOLL, 62:8) 
(AC0,0C08:8,8) 

(7623) 
(9T01,AC8,ACNUM:8, 8,8) 
(7101,063:3) 
(AC0,0C0938,8) 

(1633) 
(dJTO1L,4C9,4CNUM: 8,8,8) 
()T01,964:8) 
(AC0,0C10:8,8) 

(d543) 

CreoGOUa, wWeE0e? 155) 
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P 493$s.exi1toroc 
P 494t.generated 
kKheake mea Kea KK aKa aKK aK 
9565 .5ro0c 
49os.sensecong 
497S.eq 
4Y9Bs.jmof 
N99$.assign 
S00s.loc 
SO0is.exitoroc 
S02et.generated 
wRaaeKKa aKa Ka KeKh Ka KKK kK 
P 503s.oroc 

P S504s.sensecond 
me 509S.assign 

P 506s.exitoroc 
P 507t.generated 
Keke ekake eae Ka Kaa Kk 
BUOS.Oroc 
509s.sensecong 
510s.eaq 
aris.jmpf 

ees .assian 

Be oS.loc 
S514s.exitoroc 
515t.generated 
kaa aR aKa KKK KKH 
Sil6s.o0roc 
S517s.sensecongd 
S518s.issuevent 
eros .eq 
S20s.jmof 
S2els.assiagn 
mees.!loc 
S23s.eQq 
S24Us.jmof 
52S5s.assign 
meoS.!0c 
me7s.ea 
S28s.jmof 
529s.assign 
BoU0S.!loc 
S3ils.eq 
Boes. j mo f 
533s.assign 
mods.loc 

DoS «ea 

Pos. jmof 
937s.assign 
538s.loc 
539s.eq 


vUVvV VU VVVYV 


i © en © een © aun © un © oon © en © lm © umn © on vlan © oe © un © oon © es © oe © oe © oe © te © en © De © ee Oe © ee ee © en © ee © en © in © me © en © ee © 


(LIGOUT,LOGOUT:) 

OG Oot 

kkk 

CEQSEn.) 

(NEWPOS:1) 

Cae, NEW OS,@C01:S,1,8) 
(AaT01,7653 8) 
(PISCH,dC01:1,8) 

(v5o>) 

C2gS Ch, POSTH: ) 

{Oise eOOUPOATE 

kak 

(PISUPDATES ) 

CRUSH GON 3 ) 
(Pacer, al 0221, 8) 
(PISUePDATE,POSUPDATE: ) 
OG 5. SiG 

kkk 

(MSGIN?:) 

(MSGREADY:1) 

Calor, MSGREADY,7C01i:8,1,8) 
(ATO1,2663 8) 
(MSGIN,@C0121,8) 

(563) 

(MSGIN,MSGIN? ) 

for: MSGSTORE 

anak 

CMSGSTORES: ) 

(MESSAGE: 8) 

(MSGRCVD:1) 
(JTO1L,-NEXTYSG,aAC02C38,8,8) 
(dTO1,0673 8) 
(ACO,MESSAGE: 8, 8) 

(aol. ) 

Cableg, Nex’ 4MSG,0C01:8,8,8) 
(VT01,068: 8) 
(ACI,MESSAGE:8,8) 

(are ©) 
(aTOL,-NEXTMSG,9C003:8,8,8) 
(dT01,0692 8) 
(AC2,MESSAGE: 8, 8) 

(7693) 
C(aTOL,NEXT4SG,0C04:8,8,8&) 
(JTOL,97702 8) 

CAC3,MESSAGE 38,8) 

(1703) 
C(dJTO1,NEXTYSG,0C0538, 8,8) 
CdFO1,07138) 
C(AT4,MESSAGE: 8,8) 

(d712) 
C(VTOL,NEXTYSG,d0C06: 8, 8, 8) 
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vv UU UV VV VV UVUVUUV VV VV Ve UVC UT UOC UTC UC OC UC UC UC UC UOC UC UC UC UC UC PC eC eC UCU 


S40s. imo f 
S4is.assian 
p42S.loc 
$43s.eq 
S44s.jmof 
S4S5s.assian 
546s.loc 
547s.eq 
s4a6s.jmof 
S49s.assign 
po0s.loc 
B51S.eq 
p2es.jmof 
me55s.assiqn 
554s.loc 
555s.ea 
S5S6s.jmof 
557s.assigan 
Boes.loc 
559s.add 
500s.assign 
mols.eq 
S6es.jmof 
$63s.assign 
mo4s.ioc 


S565s.exitoroc 
966t.agenerated 


S67s.C0ONnS 
BOOS.CONS 
BO7S.CONS 
BY 0US.cOnS 
Bris .cons 
my eS.CONS 
pr oS .CONS 
574s.cons 
BY5S.CONS 
5768.ConsS 
977s.C0nsS 
578s.c0ns 
579s.cons 
580s.cons 
S81s.var 
S82s.var 


(710i, D7 2:3) 
(ACS,MESSAGE:8,8) 
(d723) 


(ATOL,NEXTMSG,9C07:38,8,8) 


(dT01,90733 8) 
sie or Ie OOAGE > GO; 6) 
(i752) 


Gumby ex tS Gea COS* 6 Bi8 ) 


(dTO01,9743:8) 
CAST MESSAGE 38,8) 
(743) 


(dTOL,NEXTMSG,9C0C09:8,8,8) 


Catone 75°25) 
CASS, ME OOAGE 28,8) 
Cais) 


(VIOL,NEXTMSG,9C1038,8,8) 


(dT01,07638) 
(AC9,MESSAGE: 89,8) 
(d762:) 


Came, NExU4SG,97C01:8,8,8) 


(VEXIMSG6,710128,8) 


(dTO1,NEXTMSG,90C143838,8,8) 


(d101,9772:8) 
(NEXTMSG,@C02:8,8) 
(qi 72) 


CVSGSOITORE? 4SGSTORE: ) 


fobs Of ole 4 
(9001,138) 
Caee, 023) 
Des, es 5) 
C7004, 538) 
(90905,438) 
Cie 67.53 3) 
CVEO7 oO: 8) 
(3C008,738) 
(dC009,838) 
(9010,938) 
Ca Sie s0 2 3) 
Cal teyece? 8} 
CSAS hos oO) 
()O14,10:8) 
(970138) 
Cale: 8) 


B 1 


RARE KARKAAAKA KR EKEK SE 





Qrows 


APPENDIX D 


Newes vier Jk JQUTPUT 
LISTING (SOFTWARE) 


cc. wee wees ese we wee @ |= Swe wee SF es Se 2 ese |= S| we |= |= SSB wes |S Se Ss Ss SS — 


; - intel 8086 realization - 
, 

prr ere SSSSSSSS SSP PSSST SS SSSTFSST SSS FSS SS TFsSs=S 
, 

, 

, 

sysl4 equ 0ODOO0OO0H 

sysl3 equ OC90O0H 

sysle eau OBOOOH 

sysll equ OA000H 

sys10 equ 9000H 

sys9 equ 8090H 

sys& equ 7000H 

sys/ equ 6000H 

sys6 equ 5000H 

SyS)> eau GOQOQOH 

sys4 equ 3000H 

sys equ 2000H 

Syse equ 1000H 


ge 

; 

r,this routine allows for a 
larger than 


rthis will 


1K stack. a stack that 


overflow into the data segment. tou wuow 


larger stack 


rthe ranotr global orimitive in senain must be set to 


the required 


,value. this method overlaos 64K of stack segnent and 


mem of data 


segment. 


g 


base address 


base address 


ora kkk kn r7rom address vpoointer 
MOv DX, O3FFH ,set data segment 
mV DS*,DX ,to 1024 

MOV Dx,0000H ,set stack seanent 
mov Soe Dk ,to OOOOH 

j}no OF OOOH 73;umpD to low 


Die 





ajdress of highest 


high 64K 


,dJefine 


im ram 
KEYINM: 


,define 


im, ram 
MINTACs 


stdefine 


17 ram 
MMSGDS: 


,define 


17 ram 
MeaCATs 


,djdefine 


in ram 
Milo K ¢ 


,define 


1. fram 
MLOGIN: 


,define 


a cam 
SMMANUS 


,define 


im ram 
Sew) Os: 


,define 


ram 
mers 


Bebo 


B=) 


B-b1 


Gb 


oh 


S=p1 


Gb) 


org kKaxeakKaSK 

jno QE OOOH 

ey gle 1024 

t storage 

org 1023 

ao 0 

org 983046 

t storage 

org 1023 

gD 0 

Ora 983046 

t storage 

org hoes 

a9 0 

ora 983046 

it storage 

org 1023 

ao 0 

org 983046 

t storage 

org 1023 

Go 0 

org S206 

t storage 

org 1923 

ofe) 0 

org 983046 

t storage 

ora 1923 

a5 0 

oraq 983046 

t storaaqe 

org 1923 

do 0 

org 983046 
S=bit storage 

org 1023 

0 


aie) 
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Kio CUS er lee 
,rom address oointer 
PC Otc Out om ot =cnd 


FO LOC Kk 


78 bit variable KEYINM 


,ron address oodinter 


yo UD\toevarial le MINTAL 


rom address oointer 


8 bit variadle MYSGDS 


= @ 


,rom adgress oointer 


78 bit variable MLOCAT 


ftom address oointer 


78 bit variable MCLOCK 


,ron address oointer 


78 bit variable MLOGIN 


,ron address oointer 


76 oit variadle SYMMANU 


,rom address oointer 


8 bit variable SMAUTO 


=e 


,ron address oointer 


78 bit variable ACO in 





ram 


ram 


ram 


ram 


YS 


ram 


Eom 


ram 


ram 


iy. ram 


,;define 


Aes 


,define 


AC2s 


,define 


ACS: 


,aefine 


ACG; 


,define 


ACS: 


,define 


Bue ©; 


,;define 


AC7: 


,;define 


AC8:3 


,;define 


Weg s 


,aefine 


INTPERS 


org 983046 
Bebit storage 
org 1023 
db 0 
org 983046 
B-bit storage 
Ora 1023 
alle 0 
org 983046 
B-bit storage 
ora 1923 
db 0 
org 983046 
B=bi twat or ane 
org 1023 
db 0 
ora 983046 
S8-bit storaae 
org 1023 
db 0 
ora 983046 
B-bit storage 
org 1023 
db 0 
org 983046 
B-bit storage 
org 1023 
db 0 
org 983046 
8-bit storage 
org 1023 
db 0 
ora 983046 
8-bit storade 
org O25 
db 0 
OCs 983046 
Be-bit storage 
org 1923 
a> 0 
ora 983046 
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,ron address oointer 


7o Ort VvVerveble ACIS in 


7rom address oointer 


Poereo | teva op llewoec. 1A 


rom address oointer 


78 bit variable AC3 in 


=e 


=e 


=e 


=e 


a 


3) 


rom address oointer 


bit variable AC4 in 


rom address oointer 


bit variable AC5 in 


rom address oointer 


bre Variable AC6 in 


rom address oointer 


bit variable AC7 in 


rom address oointer 


bit variable AC8 in 


rom address oointer 


bit variable ACI in 


rom address oointer 


bit variable JINTPER 


ron address oointer 





7 


7 


;tefine 


ram 
WSG6 02 


, define 


ram 
itoG) : 


,; define 


ram 
MSGe% 


, define 


ram 
MSG33: 


,define 


ram 
MSG4: 


,;define 


ram 
MSGS: 


,tefine 


ram 
MSG6:% 


,;define 


ram 
naiG f° 


;define 


ram 
M9G83 


,define 


ram 
roi 9 $ 


,;adefine 


Be-pit storage 


ora 1023 
do 0 
ora 983046 
S=pbivtesecorage 
org 1023 
do 0 
org 983046 
8=-bit storage 
org 19023 
do 0 
org 983046 
B8-bit storage 
Org 1023 
as 0 
orq 983046 
Bebit storage 
org 1023 
do Q 
org 983046 
B-bit storage 
ora 1023 
do 0) 
org 983046 
S=bit —storage 
OF) 1023 
aS 0 
ora 9835046 
R-bit storage 
org 1923 
a5 () 
org 983046 
S=pat storage 
orga 1023 
do 0 
org 983046 
B8=bit storage 
org 1023 
do 0 
orq 983046 


B8B=-bit storade 
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78 voit variable MSGO 


e 
, 


, 


, 


e 
a 


, 


a 


s 


*-8 bit variable 


7rom address oointer 


BRB bit variable MSGI 


,rom address oointer 


8B pit variable MSGe 


r,rom address oointer 


8B bit variable MSG3 


,rom address oointer 


8 bit variable MSG4 


,rom address ooirinter 


78 bit variable MSGS 


rrom address oointer 


,8 bit variable MSGb 


,rom address pointer 


MSG7 


,rom address oointer 


78 bit variable MSGR 


s 


,fom address pointer 


B bit variable MSG9 


,rom address ooirnter 





i” ram 
iene As 


,define 


iv ran 
TLOGIN: 


,define 


im ram 
meuUGOUs 


,jefine 


17 ram 


NEXTMS3 
rdefine 


i171 ram 
Hex Tacs 


,define 


143 ram 
HeOLL 


,tdefine 


in ram 
COUNTS 


,define 


i” ram 


EOC K ¢ 


? 


Org Oe 5 78 bit variable TMLUCA 


do 0 

org 983046 7rom address oointer 
Bebit storage 

org 1023 78 bit variable FLOGIN 

a 0 

ora 983046 prom adaress sSointer 
Be-bit storage 

org Pec Ss 78 bit variable TLOGOU 

do 0 

org 983046 ,rom address pointer 
S=-b it storage 

ore 10253 pomo1t variable Nexis 

dio 0 

org 983046 ,rom address oointer 
G=balestorage 

ora 1023 Poe ont evacirable NEXTAC 

do 0 

org 983046 zrom address oointer 
B-bit storaae 

org 025 Fomowe variable TPOLEL 

16 0 

org 985046 7rom address ovointer 
B-bit storage 

ora 1023 78 bit variable COUNT 

db 0 

org 983046 r7rom address oointer 
B-bit storage 

ora 102e3 78 bit variable CLOCK 

db 0 

org 983046 ,rom address oointer 


,orocedure KEYINM 


aKEYINMS 


KEYINM 
,tdetect 


Noo rentry point for 
condition-tyoe inout (lb6-hbit) 

an a r7sense environmental data 
NOV KEYFLG,AX 

,test for equality between KEYFLG and aC01 (16-dit) 
NOV dTO1, 1 ,oresuppose eauality 
NOV AX,KEYFLG pretch KEYFEG 
ono AX,?C01 ;compare arguments 
2 $+4 end routine if 
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meUue 


accumulator 


false( 


(ero-} } 


K3INPM 


[ero -b 1 


true 


accumu 


false( 


eno =) 3 


true 


nov vT01,0 snot equal, wIf01 = 0 
7dr anch on false 
nov AL,a@aT01 -load value irto 
emo AL, 9 ,compare to zero 
j2 101 ,jumpo to a01 if 
=(0)) 
78assign value of one variable to another variable 
©) 
Nov Axa 01 -assign acol 
NOV KEYINM, AX 7to KEYINM 
V01: He sdefine location @01 
e 
,orocedure KBINPM 
AXBINPMS N20 rentry ooint for 
7assi3gn value of one variable to another variable 
t ) 
NOV Ax,aC0e 7assign act0e 
TOV MENU, AX 7to MENU 
7send conditionetyoe soutout (1lb6-bit) 
NOV AX,MENU ,1ssue control 
dut apex 
sdetect condtditione-type tnput (16-bit) 
Wn AX, ] 7sense environmental data 
Nov MercCHaA, Ax 
,test for equality between KEYCHA and aC0!1l (1lo-pdit) 
NOV T0171 ,oresuppose equality 
Nov AX,KEYCHA ,fetch KEYCHA 
emo AxX,7C01 ,comoare arguments 
)2 $+4 7end routine if 
nov gT01,0 >not equal, aiOl = 0 
,oranch on false 
NOV AL,?7T01 ,load value into 
lator 
emo AL,0 ,compare to zero 
4 a0e ,jumo to adV0e if 
=0) 
73assign value of one variaole to another variabdle 
t) 
NOv AXx,27C01 ,assian aC! 
NOV MON TEA Coax ,to MINTAC 
Vv023 N20 sdefine location a02 
stest for equality vetween KEYCHA and 9003 (loenit) 
NOV arOd > 1 -oresuppose equality 
nov AX, KEYCHA pretcen KE YGHAs 
Sim. Ax,aC03 ,COomoare arqunents 
pz $+4 7end routine if 
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NOV yT01,0 rNot equal, WIT01 = 0 
roranch on false 
NOV AL,aTO}1 pload value into 
azscumnulator 
cm) AL,9 ,;conpare to zero 
j2 903 FM Om uteourd) ont 
false(=0) 
,assign value of one variaole to another variaole 
(16-bit) 
TOV Ax,ICO1 7assign wCO01 
TOV MMSGDS, AX 7to MMSGDS 
9033 Mop sdefine location av3 
stest for equality between KEYCHA and aC04 (lo-oit) 
TOV aT01,1 roresupo0ose equality 
NOV AxXx,KEYCHA preten “Ee YCHA 
ems AX,@ClQ4 ;comnoare arguments 
j2 $+4 ,end routine if 
rue 
TOV VT01,0 snot equal, aT01 = 0 
-Oranch on false 
NOV AL,@aT0} ,load value into 
azcumulator 
cm) AL,9 7compare to zero 
)z a04 ,juno to @a04d if 
false(=0) 
73assign value of one variapnle to another variaole 
(16-bit) 
NOV AX,7C01 -assign vC01 
NOV MLOCAT, AX 7to MLOCAT 
a043 nop sdefine location a@04 
test for eauality between “EYCHA and @C05 (lomoit) 
TOV VT01,1 ,roresupnose equality 
nov AX,KEYCHA ,fetch KEYCHA 
omo AX,aC05 ,cComoare araunents 
}2 $+4 ,end routine if 
true 
TOV 2T01,0 snot equal, adf01 = 0 
-oranch on false 
NOV AL,w?T01 ;load value into 
accumulator 
om) AL,0 -comoare to zero 
iz 05 Pjumo to ad05S 1 f 
false(=0) 
,assign value of one variaole to another variadle 
ieio-b1t ) 
NOV AX,@C01 ,assian C0il 
TOV MCLOCK, AX 7to MCLUCK 
a05: nop sdefine location 205 
r;test for equality between KEYCHA and aC06 (lonmoit) 
NOV VTO1,1 -oresupoose eaduality 
TOV AX,KEYCHA pete nan 1 cre 





cmo AX,727C06 ,cCOmoare argunents 


)2 $+4 rend routine if 
Erue 

TOV aT01,9 snot equal, alN1 = 90 

7oranch on false 

nOv AL,@T01 pilose Walue into 
accumulator 

como AL,0 ,conoare to zero 

)2 706 Parma to a0 6a ft 


false(=0) 
73assign value of one variaodle to another variable 
(16-bit) 


NOV nx, vec O01 rassian a@aC0l 
NOV MLOGIN, AX 7to MLOGIN 
a063 noo sdefine location auvU6 


7assian value of one variable to another variable 
(lo-bit) 
NOV Ax,2C02 r,assian IC002 
NOV KEYINM, AX 7to KEYINM 


v 


,orocedure MINTAC 


MMINTACS noo reentry point for 
MINTAC 
r,detect condition=tvpe inout Clo-bit) 
in AX,c rsense environmental data 
NOV RE Y CH AGA x 


,orocedure INTAC 

VINTACS Noo entry point for 
PYTAC 

7assign value of one variable to another variabole 
mro-oit) 


NOV Ax yaco i rassian C01 
NOV MENU, AX ptCome NU 
7send condition=tyoe outout (16-bit) 
NOV AX, MENU 71ssue control 
out Cun xX 
,detect condition=tyoe tnout (lo-bit) 
in AX, 3 7sense environmental data 
NOV Reyer aa x 
rtest for equality between KEYCHA and aC0e (lom-nit) 
NOV vT0O1,1 roresuooose equality 
NOV AX,KEYCHA sfetch KEYCHA 
Emo Ax,7C02 ,comoare araqunents 
j2 $+4 -end routine if 
true 
NOV VT01,0 rnot equal, alol = 0 
,oranch on false 
Nov AL,aT01 ;load value into 
accumulator 
emo AL,0 ,compare to zero 
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fo) se(=0) 
7assign value of one variable to 
mro-bit ) 
NOV AX, 2?C01 
NOV KEYINM, AX 
073 Noo 
s;test for equality oetween KEYCHA and 
NOV tO i, 1 
NOV AX,KEYCHA 
emo AX,@C01 
}2 $+4 
erue 
NOV vFO1,0 
-oOranch on false 
NOV 4L,aT01 
accumulator 
cm) AL,0 
ez 208 
false(=0) 
rassian value of one variaole 
(l6-bit) 
NOV Ax,aC01 
NOV SMMANU, AX 
a083: Noo 
ztest for equality between KEYCHA and 
NOV aTOl,l 
NOV AX, KEYCHA 
mS AxX,7C03 
j2 $+4 
true 
TOV y7T01,0 
,;oranch on false 
NOV AL, 2101 
eecunulator 
emit AL,0 
jz 209 
false(=0) 
7assian value of one variable 
(l6"bit) 
NOV Ax,7C01 
NOV SATO Ax 
9093 mo 
7assian value of one variable 
(16-bit) 
NOV Ax, »C02 
NOV MINTAC,AX 
,orocedure SMMANU 
AaSMMANUs: noo 


SMMANU 


Nerd vO7 


90 


to 


to 


to 


panic to a0, -y f 


another variable 


rvassian aC) 

,to KEYINW 
-define location 107 
MC01 Cloenit) 
roresunpose equality 

preterm KEYCHA 
,cComoare argunents 
7ENDA routine if 


,not equal, 27T01 = O 


,loaed value wats 
,eombmare to Zero 
,jumo to @a08 if 


another variable 


-assian acol 
7to SMMANU 
sdefine location 908 
aC03 (Clowoit) 
roresuoo0o0se equality 
pretense Yea 
,Comoare argunents 
7end routine if 


Faot equal, @ail0l = 0 


pos values WAto 
,COmoare to zero 

;jumpo to a09 if 

another variable 


zassian 2C01 
FtowoNAUTO 

sdefine location 

another variable 


a09 


,assian aCl02 
to MINTAC 


rentry ooint for 





moetectmGomantjom-tyoe inout Clo=nit } 
in AX,4 7SENS® environmental data 
NOV heey Ora pox 
a 
,orocedure MANUAL 
AaMANUAL: noo rent rey seowmts. 10° 
MANUAL 
rtest if ACO rot equal aC02 then ATO] = 1 (1l6-nit) 
NOV avo, | ,oresuppose 
yrequality 
NOV Ax, ACO rfetch ACO 
emo AX,aC02 ,compare arguments 
}ne $+4 7enS FCoOUt iment t 
true 
TOV O50 Feaual, aol = 0 
,oranch on false 
NOV AL,dT01 >load value into 
accumulator 
emo AL ,0 r,comoare to zero 
j2 J10 ,jump to a10 if 
fa3lse(=0) 
7assign value of one varianole to another variable 
(16-bit) 
TOV AxXx,VC02 ,assian aC0e2 
NOV PILL, AX peo PDL 
,send condition=tyde outout (lbo-bit) 
NOV Boe Ole 71Sssue control 
Sut 4, AX 
a0? noe sdefine location @10 
test if AC1 not equal IC02 then ATOLL = 1 (16-bit) 
NOV VT01,1 ,presuPpnpose 
inequality 
NOV AX,AC1 *fetch ACI 
emo Ax,aC0e ,;compare arqumnents 
jne $+4 rend routine if 
rue 
NOV aT01,0 ,equal, avtol = 0 
,Oranch on false 
nov AL,aT01 ,load value into 
mecumulator 
cmo AL,0 ,compare to zero 
j2 a11 ;jumo to all if 
false(=0) 
73assign value of one variadle to another variable 
C(l6"bit) 
NOV AX,2?C01 rassign @C0l 
TOV POLL,AX reo POLL 
-send conditionwtype outout (16-bit) 
nov AX,POLL 71Sssue contro!) 
aut 6, AX 
a11°: hap >define location a11 
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riequality 


true 


accumulator 


false(=0) 


(lo-bit) 


rrequality 


true 


accunul ator 


mai se(=0) 


mro-bit) 


inequality 


true 


ou = "ls (16-510) 


rtest if AC2 rot eaual aC0e then 
NOV aTO1,1 r,oresuppose 
NOV PXGaGe fetch ACe2 
one AX,2C0e ;compare araqunents 
jne $+4 -eNd routine 1f 
NOV VT901,0 ,equal, yTO4 =a) 
-oranch on false 
nov AL, 2701 ,load value into 
em > AL, 9 ,compare to zero 
}2 yie rjumo to dle if 
assign value of one varianble to another variable 
NOV AX, ?C03 ,assian 2C03 
NOV POLL, AX ,to POLL 
,send conditionetyoe outout (1lo-bit) 
NOV AX,POLL 7¥ssue control 
out Ban 
ale: NOP sdefine location dale 
stest if AC3 not equal 2C02 then aTOl = 1 (lb6-nit) 
NOV 21017 1 ,oresubDpose 
NOV Boh 5 Here hea > 
ema AX,7CO02 rcompare argunents 
jyne $+4 7ENAG routine if 
Nov a7101,0 ,equal, adIT01 = 0 
,2ranch on false 
NOV Ale, ao ,load value into 
omo AL,0 ,compare to zero 
4 a1 $ ,jumo to @ai3 if 
-assian value of one variaole to another variable 
Nov AX, vC04 rassian w2C04 
NOV POLL,AX Powe Oil 
7send conditianetypope outout (16-bit) 
NOV Ax,POLL ,1Sssue control 
out eos. 4 x 
Y133 nop sdefine location 213 
rtest if ACY not equal aC02 then aT01 = 1 (1Lb6-dit) 
NOV atTOl,1 ,Oresupopose 
NOV AX, AC4 rfetch ACG 
cmo 4x,aC0e ;compare argunents 
jne $+4 7end routine 1 f 
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nov ame Qel=5 0 7equal, alot = 0 
roranch on false 
NOV AL,@dIT01 , load value into 
ascumulator 
22 AL,0O ,compare to zero 
jz vid Frumo tod 1d 4 f 
false(=0) 
,assign value of one variapndle to another variable 
(16"“bit) 
NOV AX,7C05 rasSigmn vc 05 
NOV POLL ,AX Se Golan a Cl aa 
78end conditionetyoe outout (16-bit) 
NOV AX,POLL 71SSue control 
Sut tee peak 
a143 noo sdefine location a14 
sztest if ACS not equal 2002 then ATOL = 1 (16-bit) 
Nov VTO1,1 ,Oresunpose 
inequality 
NOV Oe Cray Bes: yreten ACS 
emo AX,aC02 sconoare arguments 
pne $+4 ,eENd routine if 
crue 
NOV 9T01,9 ,equal, a?TO01i = OQ 
,oranch on false 
NOV AL,vT01 ,load value into 
secumnulator 
Cmo AL, 0 ,compare to zero 
jz ais ume t Od) | >-.\ f 
false(=0) 
73assian value of one variable to another variable 
mle-bit) 
NOV AX,2C06 ,assian IC06 
nov POLE, AX Pet oueO Lae 
,send conditionwtyoe outout (lo-nit) 
nov Oxo, FO LL 71ssue contro] 
Suit 14,AX 
MiSs noo sdefine location a15 
r,test if ACS not eaual ~AC0e then ATO] = 1 (16-bit) 
NOv aTO1,1 ,OresuDpose 
inequality 
NOV AX,4AC6 fetch ACo6 
cmo Ax,2C02 ,compare arqumnents 
jne $+ 4 7end routine if 
rue 
NOV wTO01,0 ,eaual, alOl = 0 
r,oranch on false 
nov AL,@T0} ;load value into 
accumulator 
Em. AL,0 -compare to zero 
jz wl prumo to al6 4 f 


false(=0) 


oS 





7assign value of one varianle to another variable 


(l6-pDit) 


M165 


maeauality 


ior ue 


poe ancn on 


accumulator 


NOV Rae oT 
TOV PULLS, AX 
7send conditisonetyoe outout 
NOV AX,POLL 
out owca 
Noo 
stest if AC7 aot equal 2C0e 
NOV MT91,1 
NOV Sat 7 
am AX,aC0e 
jne $+4 
NOV dT01,0 
false 
Nov AL,@101 
eo AL,9 
}2 v17 


false(=0) 


,assian val 


mo-bit ) 


7send condi 


ai7s 


rmequality 


nue 


,oranch on 


azcumulator 


ue of one variable to 


NOV AxX,17C08 
NOV POLL ,»,AX 
tion=tyne output 
NOV AX,POLL 
Jut a ak 
Noe 

stest if ACS not equal +C0e 
NOV DTO1,1 
NOV AXx,AC8 
cme Ax,@aC0e 
jne $+4 
Nov V7T01,0 
false 
NOV AL,?T01 
eM. AL ,0 
HZ y18 


false(=0) 


,assign val 


(16-bit) 


send condi 


=e 


csassiaqn 2C07 
rat on Ole 


(16-bit) 
-issue control 


sdefine location alo 
QTO1 = 1 (16-bit) 
,Oresupnose 


fetch AC? 

,comoare argunents 
,ENdG routine if 

requal, 7101 = 0 


,103ad value into 


,comoare to zero 
rFrpumD to dls if 


another variable 


,assian aC0B 
sto POLL 


(lo-bnit) 
,1ssue contro!) 


sdefine location @a17 


thenma10) = 1 (lo=b1t) 


,Oresupoose 


rfetch ACS 


,compare argunents 
,eNd routine if 


,equal, wT01 = 0 
,>load value into 


,compare to zero 
pjumo to als 4f 


ue of one variadle to another variable 


TOV Ax,7C09 
NOV POLL,AX 
tion=-tyoe output 
TOV AX,POLL 
Sut 20, ax 
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,assign 1wC09 
pto POEL 


(lo6-bit) 
,1SSUe control 





2183 noo 
test if ACI not equal aACVe then 
NOV ae), 1 
inequality 
Nov Ax,AC9 ; 
om) Ax,aC0e 
jne $+4 
rue 
NOV yTO01,0 
r,oranch on false 
NOV AL, vT01 
sccumulator 
emo AL,0 
eZ a19 


false(=0) 
,assian value of one variable to 
(l6-bit) 


sdefinre location @18 
aTO01 = 1 (16-bit) 
,oresuoo0gse 


fetch ACY 
,comoare argunents 


7ENdG routine if 
pedqual, ai0l = 0 
,load value into 


,pcompare to zero 
,;jumo to @a19 if 


another variable 


NOV AX,7C10 rassian aC10 
NOV Pein x ptiomr oe 
,send conditiosnetyoe outout (lb6o-bit) 
NOV AX,POLL ,issue contro) 
Dut Cc, AX 
a19: Noo sdefine location 19 
7asSsiagn value of one variadle to another variadle 
(16-bit) 
NOV AX,2?C02 rassign aC0e 
NOV SMMANU, AX to SMMANU 
;orocedure SMAUTO 
PSMAUTO: N20 reentry ooint for 
SMAUTO 
peetect Condition=tyoe inout (16-bit) 
in AXx,5 ,sense environmental data 
NOV KEY Cin arenas 
e 
,orocedure AUTO 
@AUTO: noo 7entry ooint for 
AJTO 
7asSsign value of one variaole to another variable 
(l67bit) 
NOV AK,9C03 rassign 2003 
NOV MENU, AX Pte MENU 
7send condition=tyoe sutout (lb-bit) 
NOV AX,MENY 71$sue contro! 
Sut C4, AX 
sdetect condition=tyoe inout (lbo-bit) 
in AX,6 r,sense environmental data 
Nov KREYCHA, AX 
rtest for equality between KEYCHA and @C0e (1lb6-dit) 
NOV mee Onli) ,oresuoonose equality 
NOV AX, KEYCHA rfetch KEYCHA 


35 





emo AX,aC0e ,cOmpare arguments 


j2 +4 7eNd routine if 
ior ie 
NOV 7101,0 rMot equal, ITOL = 0 
,Ooranch on false 
nov AL,@aT01 ,load value into 
m@ecumulator 
Emo AL,0 ,comoare to zero 
jz a2 0 pmo tO alc 0 1 Ff 


false(=0) 
,assigqgn value of one variable to another variable 
(16-bit) 


NOV AX,29C01 rassiaqn vdC01 
NOV KEYIN™M, AX ,to KEYINM 
ace0: Noo sdefine location 20 
stest for equality between KEYCHA and a@C01 (1b6-nit) 
NOV peleo lpr ,oresupo0ose equality 
TOV AX,KEYCHA vretch KEYCHA 
emo. Ax,vC01 ,comoare araqunents 
fiz $+4 ~37end routine if 
true 
nov VT01,0 7Mot equal, waiT0l = 0 
,Ooranch on false 
NOV AL,2T01 ,load vatue into 
secunulator 
em AL,0O r,comoare to zero 
j2 del ,;jumo to ael if 


false(=0) 
73ssign value of one variable to another variable 
(L6-pnit) 


TOV Ax,7C11 pass ian. vo }4 
NOV INTPER, AX ,to INTPER 
a2e1l: noo sdefine location 221 
,test for equality vetween KEYCHA and @C03 (1b6-dit) 
NOV aTOl,1 roresupoose equality 
NOV AX,KEYCHA pfetch KEYEHA 
como AXx,7C03 ,comoare argunents 
j2 $+4 end routine if 
true 
NOV VT91,0 7not equal, atoll = 0 
-oranch on false 
NOV AL, 2101 ,load value into 
ascumulator 
ems AL,0 ,comoare to zero 
Vee r,jumo to a@ee if 


false(=0) 
7assign value of one variable to another variable 
(16-bit) 


NOV AX, Cle rassian wC0le 
NOV INTPER. Ax sto INTPER 
aee: No.0 sdefine location aed 
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stest for equality 


Nov VTO1, 1 

nov AX,KEYCHA 

emo Ax,2aCco4 

)2 $+4 
true 

NOV aT01,0 

,;Ooranch on false 

nov AL,2T01 
accumulator 

emo AL,90 

4 ae $ 


false(=0) 
;assign value of one variaole to 
(16“bit) 


between KEYCHA and @C04 (lboedit ) 


,oresunppose equality 
,reren Mey cha 

,compare araqunents 
7eNd routine if 

arowe= 0 


,Not equal, 


,1lo0ad value into 
,compare to zero 
-jumo to ae3 if 


another variable 


,assigqn @aCi3 
to INTPER 
sdefine location ac3 


roresuopose equality 
,fetch KEYCHA 

,conoare arqurents 
7eENd routine if 


rnot equal, aT01i = 0 
,load value into 


,compare to zero 


nov AX, 2?C1 3 
NOV INTPER, AX 
aes: Noo 
rtest for equality between “EYCHA and @~C05 (Cloroit) 
nov vTO1,1 
NOV AK, KEYCHA 
Ss hho Ax,2C05 
j2 $+4 
crue 
NOV aT01,0 
,oranch on false 
NOV AL,vT01 
ascumulator 
SNe Alo 
jz ve 4 


false(=0) 
7assign value of one variable to 
rob) t) 


r,jumo to aec4 if 


another variable 


NOV AX,avC14 sassian O14 
NOV INTPER, AX to INTPER 
ae4s: Noo sdefine location aic4d 
neect for equality between KEYCHA and @C06 (ib=<b1t) 
NOV aT01,1 ,oresuo0o0se equality 
NOV AX,KEYCHA ;fetch KEYCHA 
emo AX,aC06 ,comoare araqumnents 
j2 $+4 7end routine if 
ian ue 
NOV V1T01,0 7not equal, @al0i = 0 
zoranch on false 
Nov AL,@aT01 ,;load value into 
accumulator 
omo Ale e0 ;cCompare to zero 
4 ae5 Famine) toe aie a /\ f 


f3a3lse(=0) 
,assign value of one variable to 
(16-bit) 
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another variaodle 





TOV 
NOV 
aeD: Noo 
test for equality 
NOV 
NOV 
om. 
j2 
true 
NOV 
,oranch on false 
NOV 
accumulator 
emo 
j2 
false(=0) 
7assiaqn value of 
(lo-bit) 
NOV 
NOV 
acb: Mop 
7assian value of 
(l6-bit) 
NOV 
NOV 
,assign value of 
mro-bit ) 
TOV 
NOV 
,assign value of 
(l6“bit) 
NOV 
TOV 
7 
Rorocedure FPIULL 
ameoultks NOD 
TPOLL 
Bmsuotract lo=oit 
NOV 
SUD 
minuend 
nov 
rtest 
(l6“bit) 
TOV 
araed 
TOV 
como 
19 
true 
NOV 


Ax,2C06 
INTPER, AX 


between KEYCHA 
aTO1,1 
AX,KEYCHA 
Ax,aC07 

$+4 


VT01,0 
AL,aT01 


AL,0 
126 


one variable to 


AX,7C01 
INYTPER AX 


one variaole to 


kee OG 

INT TIM, AX 
one vafriandle to 
Ax,7?7C0e 
SMAUTO, AX 


one variable to 


Ax,?C01 
TPOLL, AX 


GE tie INTTI™M 
4x,CLOCK 
AX, INTTI™ 


VTO01,AX 


if 2T0lgreater than INTPER 


vTO1,1 
AX, 2T01 
AX, INTPER 
$+4 


VT01,0 
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rassign C06 
tol Cre ts 
:define location a25 
and @C07 (lb-bdit) 
roresunopose eagquality 
,fetch KEYCHA 
,comoare araqunents 
rend routine if 


mnot equal, aioli 0 


plOoadevalue ynto 


,comoare to zero 
;jumo to aeb if 


another variable 


-assian vC0} 

ytor LN Pk 
sdefine location 
another variapdle 


a2 


,assign CLOCK 
,to INTITI™M 
another variable 


zassiaqn aC0e 
,to SMAUTO 
another variable 


,assiqn 2C01 
,to ITPOLL 


rentry point for 


7T01 
,fetcn subtrahend 
,fecth and subtract 


,store answer in 2101 
then aTtol = 1 
r,oresuoo0ose argal > 


,fetch atl 
r7comopare arguments 
rend routine if 

aT01 


r,NOt > » =e 





,oranch on 


false 


NOV AL,adTO1 ,load value into 
azcunulator 
a i> AL,0O rcompare to zero 
} 2 acl rAuiMO tor des if 
false(=0) 
7assign value of one varianle to another variable 
(16-bit) 
nov AX,27C01 zassiaqn vC0l1 
TOV TPOLL, AX 7to POLL 
a27: N20 :define location ade7 
,orocedure POLLAU 
VPOLLAU: noo reentry point for 
PILLAU 
meesct ifeAlO not equal 2002 then @10!1 = 1 C€16—<bit) 
Nov aol 1 ,oOresunppose 
inequality 
Nov Lx Phe fetch ACO 
cmo AX,aC02 ,comopare arguments 
pne +4 rend routine if 
eeue 
NOV 9T01,0 ,equal, ?T01 = 0 
,oranch on false 
TOV AL,aTOI ,load value into 
accumulator 
emo AL,0 rcompare to zero 
j2 928 ,jumo to ae8 if 
false(=0) 
7assian value of one variable to another variable 
(16-bit) 
Nov Ax, a7C02 rassign aC0e 
NOV POLL,AX 7to POLL 
7send condition=etyde outout (16-bit) 
Nov AX,POLL 71SSUe control 
out 26, AX 
wen: NoD sdefine location 28 
r,test if ACL] not equal 2C02 then aTOl = 1 (1b6-nit) 
Nov MVT0O1,1 ,Oresuppose 
inequality 
Nov AX,AC1 fetch AC! 
cms) Ax,adC0e ,compare arqumnents 
jne $+4 ,end routine if 
true 
NOV VT01,0 requal, alol = 0 
7Oranch on false 
nov AL, vT01 ;load value into 
accumulator 
cmo AL ,0 ,compare to zero 
j2 Ved mame to ade? 4 f 


false(=0) 
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fassian value of one varianle to another variable 


(lo-bit) 
NOV Ax,aC01 -assiaqn aco} 
NOV POLL,AX zto POLL 
>send condition=-tyoe output (lbo-bit) 
NOV AX,POLL r,i1ssue control 
out 2 osx 
M293 Nop sdefine location ve9 


stest if AC2 rot equal wO02 then ATO1 = 1 (1lb6-dit) 


NOV MTO1,1 
inequality 

NOV Nea ec 

cmo Ax,aC0e 

jne $+4 
true 

NOV 9T01,0 

,;oranch on false 

NOV AL,aT01 
azscumulator 

em > AL,0 

jz 230 


paise(=0) 
-assiaqn value of one variable to 
(16-bit) 


=e 


,OreSUPDOSe 

fetch ACe 

,comopare argunents 
7,eENG routine if 

,equal, d701 = O 


>load value into 


rcomoare to zero 
rma to. d50 ) f 


another variable 


NOV AXx,2C03 rassign 17003 
nNOv POLL,AX Ptoer Owe 
7send conditisn-tyoe outout (1lb6é-bit) 
NOV AX,PQLL rissue control 
out 505 0X 
059: Nao sdefine location 230 


preset §if AGS aot equal JvC0e2 then @~TIO01 = 1 (16-bit) 


NOV VT01,1 
inequality 

NOV AXx,AC3 

om} AX,@aC0e 

jne $+4 
true 

hOov aT01,0 

r-oranch on false 

NOV AL,al01 
accumulator 

cmo AL,0O 

jz | 


false(=0) 


e 
e 


,Oresupnose 

fetch AC3 

rcompare argurnents 
,eEND routine if 

,equal, 2701 = 0 


,; load value into 


,comoare to zero 
,juno to a31 if 


7assian value of one variable tod. another variapndle 


(16-bit) 
NOV AX,2C04 -assign aC04 
NOV POLL,AX 7to POLL 
7send conditiranetyoe sutout (16-bit) 
NOV AX,POLL -yssue control 
SUG we pax 
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ies noo sdefine location 31 
;test yf ACS rot equa! DJC02 then @a~TO!l = 1 (Clo=bit) 


Nov vTOt,1 ,oresupoose 
inequality 

NOV AX,AC4 rfetch ACG 

Sno Ax,aC0e rcomoare araunents 

jne €+4 ,enNd routine if 
erue 

nov VT01,0 requal, aT0!1 = 0 

roranch on false 

NOV AL,27T01 pil@aceval ue 1nto 
accumulator 

ems AL »9 r,compare to zero 

jz 232 ,jumo to ase if 


f3lse(=0) 
73Sssian value of one variable to another variable 
(16-bit) 


NOV Ax,?C05 rassian alos 
NOV POLL,AX Pee CULE 
7send condition=tyoe outout (15-odit) 
NOV AX,POLL 71Sssue control 
out 34,AX 
ase: Noo sdefine location 234e 
stest if ACS not equal wC0e then ATO] = 1 (1b6-dit) 
nNOv a hol, ! r,oresupoose 
rreQquality 
TOV AX,ACS ,fetch ACS 
como AX,IC02 r7comoare arqunents 
jne +4 7end routine if 
true 
NOV 2701,0 requal, a7T01 = 0 
7Oranch on false 
NOV AL,adT01 , load value into 
eecunulator 
aa S AL,0 r,comoare to zero 
j2 233 rjumo to @33 if 


moarse(=0) 
7assian value of one variable to another variadle 
(16-bit) 


nov AX,9C06 ;assian ?7C06 
NOV POLL, AX noe ie 
7send conditionetyoe outout (16-bit) 
NOV Ax,POLL r7issue control 
Suit So, ox 
7333 noo sdefine location 3553 
rtest 1f AC6 not equal C02 then AT01 = 1 (16-bit) 
TOV a101,1 ,oresuppose 
rrequality 
nov AX,AC6 ;fetch AC6 
cm) AX,9C02 ,compare arqunents 


jne $ +4 ,eENd routine if 
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Prue 


NOV aT01,0 requal, avioli = QO 
7Dranch on false 
NOV AL,aT01 poo Ge vo hue 1 nto 
accumulator 
Emo AL, 0 rcompare to zero 
jz a34 pluUnMOetOonds4 4 f 
false(=0) 
7assign value of one variable to another variable 
(16-bit) 
NOV AXx,2C07 ,assign 13C07 
NOV POLL,AX ,to POLL 
rsend condition=tyoe outout (lbo-bit) 
TOV Ax,POLL 71SSUue control 
out 38,AxX 
M343 Noo sdefine location 134 
stest if AC? not equal ICO02 then ATOLL = 1 (1lb6-bdit) 
NOV aTO1,1 ,OfeSuUDDOSe 
inequality 
NOV AX,AC/ fetch AC7 
emo AX,aC02 ;comoare argunents 
yne $+4 7,eNd routine if 
rw e 
NOV yT01,0 ,equal, al0l = 0 
,oranch on false 
NOV AL,2T01 ,;load value into 
accumulator 
cmo AL,90 ,compare to zero 
j2 935 ;juno to @35 if 
false(=0) 
7assian value of one variable to another variable 
mro=-bit) 
NOV Ax,?C08 zassign aC08 
NOV POwLy Ax to POLL 
7send conditione=type outout (1lo-bit) 
NOV Ax,POLL 7issue control 
Sut 40, AX 
9353 Noo sdefine location 35 
,test if AC8& aot equal @AC02 then ITOL = 1 (16701t) 
TOV yT01,1 ,Oresupo0ose 
inequality 
NOv AX,AC& ,fetch ACB 
cmo AX,aC02 ,compare arguments 
jne $+4 7end routine if 
true 
NOV yT01,0 ,equal, al01 = 0 
,oranch on false 
NOV AL,aT0l ,load value into 
accumulator 
emo AL,0 r,comoare to zero 
iz )36 ,jumo to a36 if 
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false(=0) 
,assian value of one variable to another variable 
(16-bit) 


NOV AX,aC09 -assign C09 
NOV POLL, AX yto POLL 
7send condsitionetyoe outout (16-bit) 
NOV AX,POLL 71SSUe control 
Sut 4e, AX 
ao. MID Pdiefime Vocation. 156 
,test if ACI not equal aAC02 then a@ATO! = 1 (1b6-dit) 
NOV VTO01,1 ,Oresuoppose 
rreaquality 
TOV Pe AGF rfetch ACI 
emo AX,aC02 ,compare arguments 
yne +4 7,eNd routine if 
true 
NOV VT01,0 ,equal, MTO1 = 0 
-oranch on false 
NOV At,@T0! ,load value into 
accumulator 
como AL,0 ,comoare to zero 
j2 y37 -jumo to @3/7 if 


false(=0) 
,assian value of one variable to another variable 
(16-bit) 


NOV AX,?C10 rassign 29010 
Nov POLL,AX PLOUCrPOLL 
;Ssend conditionetyoe outout (16-bit) 
NOV aXe POL’ ,18sue contro) 
out 4Q4,Ax 
aon) nop sdefine location @3/7 


7assigagn value of one variable to another variable 
(16-bit) 


NOV AX, IC02 ,assiqn 7002 
NOV ie Clea x sto TRPOLL 
,orocedure WMSGDS 
M“MMSGDS:3 Roo ,entry cont for 
MUSGDS 
me vecti= GoOmMaition=tyoe inout ()l6=bit) 
in hm, 7 r,sense environmental data 
Nov KeyYtma, Ax 


0 
,orocedure MSSNSP 
M@VSGOSP s:$ Noo ,pemtry point for 
MSGDSP 
7assiagn value of one variaonole to another variable 
(16-bit) 
NOV AX,MSGO ,assiaqn MSG0 
NOV MSGVDT,AX ,to MSGVDT 
7seNd condition=tyoe outout (Llb-bit) 
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Passiagn vat 
(167bit) 


7sen@d Cond) 


maossi an val 
(16“bit) 


send condi 


,assian val 
(16-bit) 


,send condi 


,assign val 
ero-bit ) 


,send condi 


TOV AxX,™SGVDT ,1ssue contro!) 
Out 46, AX 
ue of one variable to another variable 


NOV AX,MSG1 sassian MSG61 
NOV MSGVODT, 4x ,to MSGVDT 
tion-tyoe outout (16-bit) 

TOV Ax,MSGVDT 71ssue control 
out 48,AxX 


ye of one variable to another variaodle 


NOV AX,“SGe ,assign VSGe 
NOV MSGVDT,AX sto MSGVDT 
tion-tyoe outout (16-bit) 

TOV Ax,MSGVDT ,1ssue control 
St Sr nak 


ue of one variable to another variable 


NOV AX,MSG3 ,assiagn MSG3 
NOV MSGVDT,AX rto MSGVDT 
tion-tyoe outout (lb6-bit) 

TOV AX,“SGYDT 71SSUue control 
out Sc, Ax 


ue of one variable to another variable 


NOV Axe MSGU ,assign MSG4 
nov MSGVDT, AX >to MSGVDT 
tion-tyode outout (16-bit) 

NOV AXx,“SGVDT pSSsue. Control 
Suit S54,Ax 


,assian value of one variable td. another variaole 


irom bi t ) 


,send condi 


rassian val 
(l6o-ort ) 


,send cond? 


,3assian val 
(16-bit) 


7send condi 


NOV AX,“SG65 7aSsign MSGS 
NOV MSGVDT, Ax >to MSGVDT 
tionwtyoe output (16-bit) 

NOV AX,MSGVDT ,;i1ssue control 
sut Sion x 

Je of one vartapnple to another variaole 
NOV Ax,’SG6 ,assian MSG6 
NOV MSGVDT, AX ;to MSGVDT 
tion-tyoe outout (lo-bit) 

NOV AX,“SGVDT ,issue control 
Sut SX 


ue of one variable to another variable 


NOV AX,MSG7 Fassiam “oG/ 
NOV MSGVDT,AX sto MSGVDT 
tionetyope outout (16-bit) 

NOV AX,MSGVOT ,1ssue control 
out S054 * 
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7assign value of one variable to another variable 
(16-bit) 


NOV AX,™“SGB rassian “ists 

NOV MSGVDT,AX 7to MSGVDT 
7send condition-tyoe outout (1lb6-bit) 

NOV Ax,“SGVDT 71Ssue control 

out Oey nx 


,assign value of one variable to another variaole 
mro-bit) 


NOV Ax,MSG9 rassiagn MSGI 

nov MSGVDT, AX 7to MSGVDT 
7$end conditionetyoe outout (lb6-bit) 

NOV AX,'SGVOT 71Ssue control 

aut 64, 4X 


7assi1gn value of one variable to another variable 
(l6"bit) 


nov AX,aC02 r7assiaqgn aC0e 
NOV MMSGDS, Ax to MMSGDS 
7 
,>rocedure MLICAT 
aVMLOCAT: noo Featry Point for 
MLOCAT 
,detect conditionstyoe inout (1l6-dit) 
in AX ,8 7sense environmental data 
NOV KEYGHA,Ax 


% 
a 


-orocedure LOCATI 

MVLOCATI: noo reentry ooint for 
eOCcATI 

7assign value of one variable to anotner variable 
obit ) 


NOV AX,aC04 rassian a@aC04 
NOV MENU,AX 7to MENU 
7send condition-type outout (lo-bit) 
NOV AX, MENU 71Ssue control 
Due 66, AX 
;detect condition-tyoe indut (16-bit) 
al AX,9 r7sense environmental data 
NOV KEYCHA,AX 
rtest for equality between “XEYCHA and a@aC0e (lbo-dit) 
NOV VTO1,1 roresupoose equality 
NOV AX,KEYCHA ,fetch KEYCHA 
em AX,9C0e ,comoare arguments 
4 $+4 7end routine if 
crue 
NOV yT01,0 7Not equal, WTO! = 0 
,oranch on false 
NOV AL,aT0} ,load value into 
accumulator 
cCm> AL, 0 7;compare to zero 
jz a 38 ,;jumo to 38 if 
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false(=0) 


assign value of one variable to another variable 


(l6-bit) 
NOV Ax,@aC01l r,assign 2001 
TOV re Y¥ NM A Xx ;to KEYIN™M 
7383 noo sdefine location 38 
muesctefor eadamity oetween KEYCHA and @9C01 (16-9it ) 
NOV vTO1,1 ,Ooresuopose equality 
NOV AX,KEYCHA 7 tetene ne Y CHA 
eno AX, C01 ,;compare argunents 
j2 $+4 7,end routine if 
ren we 
NOV aT01,0 -mMot equal, ?TO01 = OA 
r,oranch on false 
NOV AL,aT01 ;load value into 
aecumulator 
emo AL,0 ,compare to zero 
jz a 39 rjumo to a259 if 
false(=0) 
73S8SS19N value of one variaole to another variaole 
(l6-bit) 
NOV hr) 6 1 rassign acol 
TOV NEWPOS, AX ;to NEWPOS 
2393 noo sdefine location a@39 
sytest for equality between KEYCHA and C03 (1lbo-dit) 
NOV vTOL, 1 ,oresuppose equality 
Nov AX,KEYCHA sfetch KEYCHA 
= 735 AX,aC0Q3 ,Compare arguments 
)2 tra rend routine if 
enue 
nov aT01,0 jmot equal, at101 = 0 
,oranch on false 
NOV AL, @Tol ; Logeryv al Ue amet o 
secumulator 
en > AL, 0 r,compare to zero 
j2 240 rjump to @40 if 
false(=0) 
73Sssian value of one variable to another variable 
({6-bit) 
NOV AX,2IC02 rassian IC02 
NOV NEWPOS,AX ,to NEWPOS 
7assian value of one variaole to another variable 
(16-bit) 
NOV Ax,29C01 ,assian 7C01 
nNOV eile OG a ax ,to TYLOCA 
d403 N90 sdefine location w40 
73ss1iqgn value of one variandle to another variable 
(16-bit) 
NOV AX,2C02 rassign 7C0e 
NOV MOA, a x ,to MLOCAT 
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,orocedure TMLOCA 


aIMLOCA: N20 Fenty Ooilnt tor 
mALOCA 
sdetect condition=tyoe Inout (1lo-bdit) 
in Ax,10 rsense environmental data 
NOV KEYCHA, AX 


f 


,orocedure WMANLOC 


aVANLOC: nae reentry point for 
MANLOC 
,tdetect conditionetyoe inout (lo-bit) 
in AX,11 7sense environmental data 
NOV MANPOS,AX 


7assian value of one variapnle to another variable 
mro-bit ) 
NOV AX,™’WANPOS ,assigqn MANPOS 
TOV POSITI,Ax ,to POSITI 
7assign value of one variable to another variable 
mio=—bit ) 


NOV Ax,3dC02 rassiagn wC0e2 
NOV TMLOCA,AX ,to TMLOCA 
,orocedure MCLOCK 
aMCLOCK: No reentry point for 
MCLOCK 
,detect condition-tyoe inout (lbo-bit) 
in AX,1e rsense environmental data 
NOV KEYCHA, AX 
rorocedure CLOCKS 
VeLVUEKS: N20 sentry ooint for 
CLOCKS 


7assian value of one variable to another variable 
mie-bit) 


NOV AXx,27C05 rassign aC05 
NOV MENU, AX ,to MENU 
r,send conditionetyoe outout (16-bit) 
NOV AX,MENU ,1issue control 
out 68, AX 
,detect condition=type inout (lo6-bdit) 
in Ax,13 7sense environmental data 
Nov KEYCHA, AX 


7assiagn value of one variandle to another variapole 
(167bit) 


NOV AXx,aC0e rassian aC0e 
NOV MCLOCK,AX ,to MCLOCK 
r,orocedure MLIGIN 
aMLOGIN: Ndo reentry ooint for 
MLOGIN 


,detect conditionetyoe inout (lo-bit) 
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in AX,14 ,Ssense environmental data 
TOV KEYCHA, AX 


° 
, 


,orocedure LOSINO 

JLOGINO: Noo Fe Mey. OO ln Gat OT 
LIGINO 

7assian value of one variable to another variable 
[mo-bit) 


NOV Ax,2C06 ,assian al06 
NOV MENU, AX ,to MENU 
7send condition-type outout (16-bit) 
NOV AX, “MENU ,1ssue contro) 
out 70,4X 
,detect condition=etyoe itnout (16-bit) 
in AX,15 ,sense environmental data 
NOV KEYCHA, Ax 
,test for erauality between KEYCHA and aC0e (1lb6-dit) 
NOV VvTO1+ 1 roresuopose equality 
TOV AX,KEYCHA ;fetch KEYCHA 
Ems Ax,aC0e ,compare arguments 
fez $+4 ,end routine if 
true 
TOV yT01,0 rnot equal, VI01 = 0 
,oranch on false 
NOV AL,a@T01 ; load value into 
accumulator 
Sno AL,0 rcompare to zero 
j2 a4} rjump to @4i if 


false(=0) 
assign value of one variable to another variable 
(1l6"bit) 


TOV AX, 2C01 ,assign vC01 
NOV KEYINM, AX zto KEYINM 
a413 MoD -define location a@4l 
r,test for equality between KEYCHA and @C0l (loHnit) 
NOV 2a0 7) roresuppose equality 
TOV AX,KEYCHA ;fetch KEYCHA 
cm) AX,aC01 ,Compare argunents 
j2 $+4 ;end routine if 
mr ue 
NOV aT01,0 prot equal, dI0l = 0 
7DOranch on false 
NOV AL,@T01 ,load value into 
accumulator 
mo AL,0 7cCoMmDare to zero 
jz M42 ,jumo to ade if 


false(=0) 
73ass1ian value of one variable to another variable 
(lo-bit) 
NOV Ax,vC01 rassign 2001 
NOV TLOGIN, AX >to FLOGIN 
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a4ue: noo sdefine location @a4e 
,test for eauality between KEYCHA and @C03 (lbo-dit) 
NOV aTO1,1 r7presupoose equality 
NOV AX,KEYCHA ,fetch KEYCHA 
emo AX,7C03 ,compare arauments 
j2 $+4 rend routine if 
true 
NOV VT01,0 ,not equal, aTOt = Q 
,oranch on false 
NOV AL,@T01 >load value into 
mecumulator 
ecmo AL,0 ,comoare to zero 
2 V4 3 r,jumo to @43 if 
false(=0) 
7assign value of one variable to another variable 
ere-bit) 
NOV AX,7C01 -assiqn aC0l 
NOV TLOGOU, AX 7to TLOGOU 
as: nop sdefine location a@43 
7assian value of one variable to another variable 
(l6Oebit) 
NOV AX,7C02 -assian aIC02 
NOV MLOGIN,AX >to MLOGIN 
,orocedure FLOIGIN 
ATLOGIN: Noo rentry ooirnt for 
TLOGIN 
;detect condition=tyoe inout (16-bit) 
mn Ax, 16 rsense environmental data 
TOV KOE yi Grin, 4 x 
,orocedure LOGIN 
MVLOGIN: ROD zentry point for 
LOGIN 
7assiaqn value of one variable to another variable 
mo bit ) 
NOV Ax, 2C02 rassign vCV02 
NOV ACNUM, AX r,to ACNUM 
,detect conditionetype input Clo-oit) 
wn AX,17 rsense environmental data 
NOV ACNUM, AX 
test for equality between VEXTAC and aIC02 (16-bit) 
NOV aTO1,! roresupoose equality 
TOV AX NEXT AE rretch NEXT4E 
em} Ax,aC02 7cOmoare argunents 
)2 $+4 7enNd routine if 
true 
NOV agT01,0 -not equal, vT01 = 0 
r,test for equality between ACO and IC002 (16-bit) 
NOV AaTOe2, } ,oresuppose equality 
nov AX, ACO preten ACO 
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am > Ax,@aC02 ,comoare araunents 


j2 $+4 Penden ou © wmes it 
rue 
NOV A@T02,0 rnot equal, wl0e = 0 
;logical and. (16-bit) DVT01 wand. at0e = aTO0l 
NOV AX,?TO01 
and AX,aT02 
NOV VT01,AX 
-oranch on false 
NOV AL, aTOl ,>load value into 
secumulator 
em) AL, 9 ,compare to zero 
jez a44 -jumo to @44 if 


false(=0) 
7assiagn value of one variable to another variable 
(16-bit) 


MOV AX,ACNUM ,assign ACNUM 
NOV ACO,AX ,to ACO 
D443 noo :define location @a44 
test for equality between NEXTAC and @aC0l (Clowoit) 
NOV aTO1, 1 ,oresuopose equality 
NOV Bike, NE XT Ae ,fetch NEXTAC 
omo AX, @C01 ,comoare arguments 
iz $+4 7end routine if 
true 
NOV A) Ae rnot equal, ~aTVl = 0 
rtest for equality between ACI and I00e (16=bit) 
Nov ITO02,1 r,oresuoo0ose equality 
NOV AX,AC1 ae UGihe aC 4 
smo AX,aC0e ,comoare argunents 
j2 $+4 7end routine if 
true 
NOV aT02,0 mnot equal, DMT02 = 0 
miootvcal and. Clo=bit) MtIO!l wand. vT0e2 = WI01 
NOV AX,a@aT01 
and AX,aT02 
NOV VT01,AX 
7oranch on false 
NOV AL,adTO1 ,load value into 
accumulator 
emo AL,9 ;compare to zero 
)2 DV45 >jump to a4S if 


false(=0) 
assign value of one variable to another variable 
(1l6"bit) 


NOV AX, ACNUM ;assign ACNUYM 
NOV AC1,AX sto ACI 
M45: N90 sdefine location a@45 
rtest for equality between NEXTAC and 29003 (loeoit) 
NOV MTO01,1 rOresuopose equality 


NOV AX, NEXTAG yretch NEXTAC 





emo AX,7C05 ,compare araqunents 


)2 $+4 PENG ue OU Woes .it 
true 
nov aT01,0 ,nOt equal, @TO0!1 = O 
test for equality between ACe and aC0e (16-bit) 
NOV O27 | ,oresupoose equality 
NOV RX, ACe ,fetch ACe 
2mo AxX,vC02 rcompare arqunents 
j2 $+4 r7enNd routine if 
true 
Nov aT02,0 mnNot equal, asroe = QO 
mroagivcal “and. —§(l6é—=o010) 270! sand. @al0e = aT0! 
NOV AX,a@aT01 
and AX,adF0e 
NOV MTO1,AX 
,oranch on false 
NOV AL, aT 01 ,; load value into 
accumulator 
Sms AL,0O ,compare to zero 
j2 av46 ,jumo to a46 if 
false(=0) 
,assian value of one variable to another variable 
mio-b1t ) 
NOV AX, ACNU™M ;assign ACNU™ 
NOV ACe2, AX 7,to ACE 
aso: a oye sdefine location @46 
r,test for equality between NEXTAC and a@aC04 Clornit) 
NOV aa; | roresupoose equality 
NOV fox Ne ala ,fetch NEXTAC 
emo AX,aC04 ,compare araqunents 
j2 $+4 7eNd routine if 
true 
NOV V701,0 mietmeaqual, alll =10 
r,test for equality between AC3 and aAC0e (16-bit) 
TOV aT02,1 ,oresunpose equality 
NOV Ax,AC3 fetch AC$ 
cma AX, C02 ,conpare argunents 
}2 $+4 7eNDdG routine if 
true 
NOV dTO02,0 rnot equal, dFO02 = OQ 
mrogdice! amas ( l6=bit) DIOL cand. ai0e2 = adIOL 
NOV AX,dT01 
and AX,aT0e 
NOV DT01,AX 
norancn. on) false 
NOV AL,aT01 ,; load value into 
accunul ator 
emo AL,9 r,compare to zero 
jz Q47 ,;junp to @a47 if 


false(=0) 


73assian value of one variable to another variavdle 


Ei 





mr6o-b1t ) 


NOV AX, ACNUM ,assiaqn ACNUM 
nov AC3,AX gt One > 
Q473 Noe sdefine location 147 
r,test for equality between NEXTAC and @C05 (loedit) 
nov aTOl1,1 roresunndose equality 
NOV AX FNEX TAC 7 recenh NEXTAG 
cmo AX,a9C05 r,compare argunents 
jz $+4 7end routine if 
ee ue 
NOV adT01,0 r7Mot equal, IT01 = 0 
,test for equality between ACY and aACVe (lo-bit) 
NOV T02,1 7Ooresupoose equality 
NOV Ax,AC4 prercn “C4 
a nD AX,dC02 ,conoare araunents 
ae $+4 rend routine if 
true 
NOV MT02,0 mnot equal, wto02 = 0 
muogical ana. v0 l6=bit) VIO) cand. adl0e = aTOl 
NOV AX,dT01 
and AX,aT02 
NOV MT01,AX 
roranch on false 
nov A4L,aT01 ,\load value into 
secunulator 
emo AL,0 7compare to zero 
lez 048 ;juno to a48 if 
false(=0) 
7ass1ign value of one variaole to another variable 
(16-bit) 
NOV AX,ACNUM ,assign ACNUM 
NOV AC4,AX ,to ACY 
a4Bs: Nop sdefine location a48 
rtest for equality between NEXTAC and aC06 (1lo-nit) 
nov aT01,1 7Oresuppose equality 
NOV AX,NEXTAC ,fetch NEXTAC 
eno AX,aC06 rcomoare argunents 
}2 $+4 7eEnNd routine if 
crue 
NOV aT01,0 r7not equal, MFV1 = 0 
rtest for equality between ACS and 29C0e (16-bit) 
nov VT02,1 roresupoose equality 
NOV AX, AC5 ,fetch ACS 
cmo AX, 3C02 ,conpare araunents 
}2 $+4 rend routine if 
true 
NOV VT02,0 *Mot equal, yII0e = 0 
,lo91cal and. (lo-bit) @FO1 wand. alOe = DFO 
NOV AX,aT01 
an 4 AX,aT02 
NOV VTO1, AX 


a 





r-oranch on false 


NOV AL,qdT01 pOaGg Value. Tot. 
accumulator 

com> AL, 0 rcompare to zero 

eZ D49 ,;jumo to @49 if 


Paise(=0) 
73SSi9N value of one variable to another variable 
(16"*bit) 


NOV AX, ACNUM sassign ACNUM 
NOV ACS, Ax to ACS 
M493 apo?) sdefine location @49 
stest for equality between NEXTAC and aC07 (loedit) 
NOV aT01,1 r,oresunpose equality 
NOV AXES TAL ;fetch NEXTAC 
como Ax,@aC07 r,compare arqunents 
j2 $+4 7end routine if 
true 
NOV aT01,0 >not equal, ato! = 0 
rtest for equality between ACS and aAC02 (1lo-bit) 
NOV VT02,1 ,oresuppose equality 
NOV Ax, AC6 ;fetch AC6 
ene AX, C02 rcompare argqunents 
nz $+4 rend routine if 
heue 
NOV aT02,0 snot equal, ITVe = O 
muogical and. (lo-bit) DIO! cand. @~@l0e = aldol 
NOV AX,2T01 
ano AX,aT02 
NOV al1Ol, ax 
roranch on false 
NOV AL,aTOl >load value into 
accumulator 
emo AL,0 rcompare to zero 
j2 a50 piumo.to @ad50 1 f 


false(=0) 
73assian value of one variable to another variable 
(16-bit) 


NOV AX, ACNUM ,assiaqn ACNUM 
NOV AC6,AX to ACo 
a50: Noo sdefine location @50 
test for equality between NEXTAC and @AC0B (1b6-dit) 
NOV DO legel roresuppose equality 
NOV AD ANE XX TAC pretch NEX EAC 
cms AX, C08 ,compare arguments 
}2 $+4 7end routine if 
true 
NOV gT01,0 mingce Ol) a led ie t= oO 
r,test for equality between AC7 and aC02 (lb-bit) 
NOV a102, 1 roresudpose eauality 
NOV AX, AC7 >fetch AC/7 


em)> Ax,aC02 rcomoare argunents 





)2 $+4 7enNd routine if 


re we 
NOV atd2,0 7NMot equal, aAT02 = 0 
slogical and. (16-bit) ATO1 wand. a~AI0e = ATVI 
NOV AX,@T01 
ang AX,aT0e 
TOV aTO1,AX 
roranch on false 
TOV AL, 2T01 ,load value into 
mecunulator 
cm) AL,0 rcomoare to zero 
}2 aS 1 ,;jump to @51 if 


false(=0) 
7aSS1IGN value of one variable to another variable 
(16-bit) 


NOV Ax,ACNUM ,assign ACNUM 
NOV AC7,AX COT 8 G7] 
a513 Noo sdefine location 251 
test for equality between NEXTAC and aC09 (loenit) 
NOV aTol,1 ,Ooresuopose equality 
NOV AX,NEXTAC ,fetch NEXTAC 
en. Re acog ,conpare araunents 
)}2 $+4 7end routine if 
ie ue 
NOV J7T01,0 >NMot equal, ATOLL = O 
s,test for equality vnetween AC8 and ~AC0e (16-bit) 
NOV aTOe, 1 roresupnose equality 
NOV AX,ACB ytfetch ACS 
em. Ax, avC0e ,compare arguments 
j2 $+4 7end routine if 
true 
NOV aT02,0 snot equal, aAF02 = 0 
mioaiveal and. (Clo=bit) afOl wands P1022 = al0l 
NOV AX,a@aT01 
ang AX,VT02 
NOV MVTO1,AX 
roranch on false 
NOV AL,aTol Floacd value anto 
accunulator 
cm) AL,9 r,comoare to zero 
}2 VSe ,jumo to ade if 


false(=0) 
,assign value of one variable to another variable 
(16"bit) 


NOV AX, ACNUM -assign ACNUM 
NOV 4C8,AX PiteO neo 
Doe: Noo sdefine location @252 
,;test for equality between NEXTAC and 9C10 (16-bit) 
NOV aTO1, 1 7Ooresunopose equality 
NOV AX,NEXTAC rfetch NEXTAC 


emo AX,@aC10 ,cComoare araunents 
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hz $+4 ,end routine if 


cr ue 
TOV 7T01,0 puot equal, @rut = 0 
meest for eauality between ACY and @aC0e (16=<bit) 
NOV T0271 7oOresuopose eauality 
TOV AX,AC9 ,fetch ACY 
emo AX,?C02 ,conoare argqunents 
}2 $+4 7eENd routine if 
crue 
NOV VT02,0 snot equal, atT0e = 0 
miogivcal amide (lo=-bit) 2101 wand. dI0e = 1701 
Nov AX,@aT01 
ang Ax,aT0e 
TOV aT01,AX 
,oranch on false 
NOV AL,aT0l ,;load value into 
aceumulator 
=n 5 AL,0 ,compare to zero 
}2 953 ,jumo to 53 if 


false(=0) 
7assiagn value of one variabdle to another variaole 
(16-bit) 


NOV Ax, ACNUM ;assign ACNUM 
NOV AC9,A™X 5 tO AED 
DDS Mao sdefine location 953 
;add l6"bit NEXTAC + 27001 = aTol 
NOV AX Ne ae ,fetch first 
argqunent 
3d4 AX,7C01 s;add second argunent 
toe trirst 
TOV VT01,AX 7store answer in aIT01 


assign value of one variable to another variaole 
(l6-bit) 


Nov AX,2dT01 ,assign aio}l 
NOV NIE XFAC, AX PtomNEX TAC 
rtest for equality between NEXTAC and 9014 (low-nit) 
NOV aTO1¢1 roresunpnose equality 
NOV AX,NEXTAC pretehn NEXTAC 
cmo AX,aC14 ,comoare arqunents 
j2 $+4 7end routine if 
true 
TOV JT01,0 snot equal, aT01l = 0 
,oranch on false 
NOV AL,v1T01 ;load value into 
azscumulator 
cmo AL,0 7comoare to zero 
j2 a54 ;jump to @54 if 


false(=0) 
,;assian value of one variadle to another variable 
ero=b1t ) 
NOV AX GOe rassign aCo0e 
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NOV NEX POC 4 x tone > DAE 
a543 noo sdefine location 954 
7assign value of one variaodle to another variable 
(L67bdit) 


NOV AX,vC02 -assian aIC02 
NOV TLOGIN, AX ;to JFLOGIN 
a 
,orocedure FLIGOU 
JTLOGOU: noo rentry vooint for 
TLOGOU 
,detect condition-type inout (16-bit) 
in DOGS 7sense environmental data 
NOV Ree Yi Ava 
,orocedure LOGOUT 
AVLOGOUT: noo ,entry soint for 
LIGOUT 


,assign value of one variable to another variable 
(16*bit) 


NOV Ax,vC02 zassian aC0e 
NOV ACNUM, AX r7to ACNUM 
,detect condition=tyoe inout (16-bit) 
mn AX,19 rsense environmental data 
NOV ACNUM, AX 
,test for equality between ACO and ACNUM (lb6-dit) 
NOV yTO1¢1 ,Ooresupoose equality 
NOV KX, ACO ,fetch ACO 
emo AX, ACNUM ,compare argunents 
eZ $+4 ,end routine if 
true 
NOV 2701,0 rnot equal, wMF01 = 0 
,oranch on false 
NOV AL,wT01 >load value into 
secunulator 
Emo AL,0 reomoare ©O Zero 
V2 a55 -jump to @55 if 


matse(=0) 
73SsSsSi19gN value of one variable to another variable 
(16-bit) 


NOV Ax, vC02 ,assign aC0e2 

NOV ACO,AX ,to ACO 
ao5 Noo sdefine location 955 
stest for equality between AC! and ACNUM (16-pnit) 

NOV aTO1,1 r7oresunppose equality 

TOV AX, AC1 sfetch AC! 

cmo AX, ACNUM ,conpare argunents 

J 2 $+ 4 7end routine if 

true 

NOV aT01,0 rnot equal, at01l = 0 
,Ooranch on false 

NOV See Onl , load value into 





accumulator 
eno AL,0O ,compare to zero 
j2 V56 r,jumo to @56 if 
false(=0) 
,assign value of one variadsble to another variable 
(lo-bit) 


NOV AX,vCO01 rassian dC01 
NOV ACO, AX 7 to. Aco 
alo! Noo :define location 956 
test for erauality between ACe and ACNUM (loenit) 
NOV aTO1,1 ,oresuponose equality 
NOV AX, 4Ce ,fetch AC2 
como AX, ACNUM ,comnpare argunents 
j2 $+4 7eNd routine if 
true 
NOV vT01,0 snot equal, aTV1 = OQ 
-oranch on false 
NOV AL,dT01 ;load value into 
accumulator 
=n) AL ,9 7compare to zero 
jz Jo7 ,jumorto aor 4 


false(=0) 
7assign value of one variable to another variable 
(l6-bit) 


NOV AxX,7C03 -assian ?C03 
Nov ACO, AX r,to ALY 
g573 Noo soefine. bocGatiom a7 
test for eaguality between AC3 and ACNUM (loeoit) 
NOV ae eee ,oresuopose equality 
nov AX,AC3$ r,fetch ACS 
como AX, ACNUM ,compare argunents 
}2 $+4 end foutine if 
neue 
NOV yTO01,0 snot equal, airoi = 0 
7oranch on false 
nov AL,@101 ,load value into 
accumulator 
Si AL,0O rcomonare to zero 
j2 158 ,jumo to a58 if 


false(=0) 
,assian value of one variable to another variable 
(16-bit) 


NOV Ax,@CQ4 zassian 2C04 
NOV ACO,AX -7to ACO 
758; noo sdefine location @58 
rtest for equality ovetween ACY and ACNU™ (Clomnit) 
NOV VTO1,1 ,oOresuopose equality 
NOV AX, ACG ,fetch AC4 
e115 AX, ACNUM ,compare argunents 
fez $+4 ,end foutine if 


true 





NOV aT01,0 rnNOt equal, 
,oranch on false 
NOV AL, 2?T0} ,load value 
accumulator 
Sie AL, 0 
j2 v59 ,jumo to 959 


false(=0) 
,assign value of one variaole to another 
(lo-bit ) 


afUl = 0 


INto 


,compare to zero 


i f 


Varianle 


nov AX,a@C05 -assign 2C05 
nov ACO,AX to ACV 
VII93 N>P sdefine location a59 
test for equality between AC5 and ACNUM (lo-pdit) 
NOV wr Ol, | ,oresupnose equality 
NOV AXg eS ;fetch ACS 
emo Ax, ACNUM ,compare argunents 
iz $+4 ;end routine if 
true 
TOV a) Omen snot equel, aTrol = 0 
7oranch on false 
NOV AL, a'01 ,load value into 
accumulator 
emo AL,9 rcompare to zero 
j2 V60 7yump to aod if 


false(=0) 
Paiss19an value of ome variadle to another 
po =b it ) 


variable 


NOV AX, 7C06 ,assiagn vC06 
NOV ACO, 4x r7to ACO 
)603 Noo sdefine location d60 
stest for equality between AC5 and ACNUM (lomdit) 
NOV VT01,1 roresunppose equality 
NOv AX, AC6 ,fetch AC6 
Ems AX, ACNUM ,comoare argunents 
jz $+ 4 z;end routine if 
true 
nov aT01,0 not equal, IMT01 = 0 
,oranch on false 
NOV AL,af0l ,load value into 
accumulator 
emo AL,0 rcomoare to zero 
jz 161 Pino ptc. ao lomi ft 
false(=0) 
,assign value of one variadle to another variable 
(lo-bit) 
NOV Ax,vC07 ,assiaqn aco? 
NOV ACO,AX 7to ACO 
M615 Nop sdefine location 6} 
rtest for equality between AC7 and ACNUM (1Ll6-bit) 
NOV MT01,1 ,oresunpose equality 
NOV AX,AC7 pretcen AC / 





true 


NOV 


,oranch on false 


accumulator 


false(=0) 


7assiaqan value of one variable to 


mo-b1t ) 


M523 
rtest 


true 


accumulator 


NOV AXx,2?C08 
NOV ACOQO,AX 
Noo 
for equality between AC8 an 
NOV vTOi,l 
TOV AX,AC8 
cm AX,ACNUM 
j2 $+4 
NOV ayT01,0 
Poreanch on talise 
nov AL,vT01 
em. AL,0 
12 d63 


false(=0) 


7assiagn val 


(lo-bit) 


g633 
,test 


true 


NOV 


cm> 
Nez 


nov 
NOV 
NOP 


NOV 
Nov 
cm) 
jz 


NOV 


7oranch on false 


accumulator 


false(=0) 


73assian value of one variaole to 


(1l6-*nit) 


A643 


NOV 


NOV 
NOV 
ADP 


AX, ACNUM 
$+4 


aT01,0 
AL, dT01 


Wie, () 
abe 


ue of one variaonle to 


AX,vC09 
ACO), AX 


VT01,0 
AL,dT01 


AL, 0 
N64 


AX, vC10 
ACO, AX 


=<6 


=e 


,cCOmnpare argunents 
,eENd routine if 


snot equal, afol = 0 
,load value into 


rcompare to 2efo 
,jumo to abe if 


another variable 


rassiaqn C08 
r,to ACO 
:define location 62 
Jd ACNUM Cloendit) 
,Oresunpnpose equality 
fetch ACS 
,comopare arguments 
rend routine if 


pneotmeaqual, wa101 =. 0 
,load value into 


,compare to 2ero 
PiUumMemtouwaos if 


another variabdle 
rassign aCog 


7to ACO 
sdefine location do$ 


for equality between ACI and ACNUM (lb6-"D0it) 
atoll pt 
AX, AC9 
AX,ACNUM 
$+4 


r,presunonpose equality 
fetch ACY 
r,compare argunenrts 
,end routine if 


jaoueegqual, avrirol = 0 
,load value into 


,compafe to 2eroa 
r,jump to a6o4 if 


another variable 
rassign C10 


,to ACO 
sdefine location @do4 





,assign value of one variandle to another variable 
(lo-bit) 


NOV AxXx,VC02 -assian VC002 
NOV TLOUGOU, AX peor VeviGoU 
porocedure POSCH 
MPOSTH: noo FeERCEYDoynt for 
POSCH 
maotect COondaitjion@=tyoe inout Clo-bit) 
in AX,20 7SeNSe environmental data 
NOV NENPOS, AX 
s,test for equality detween NENPOS and 3C01 (lo-dit) 
NOV aTOl,! -Oresunpo0ose equality 
NOV AX,NEWPOS ,fetch NEWPOS 
oma AX,2C01 ;comoare argunents 
}2 $+4 7ENd routine if 
true 
NOV y¥T01,0 -NOt equal, a~ATOL = O 
roranch on false 
NOV AL, @T01 ,load value into 
azscumulator 
omo AL, 0 rcompare to zero 
j2 a65 ,jump to a65 if 


false(=0) 
7assian value of one variable to another variable 
(1l6-pdit ) 


NOV AX, 73C 01 rassian wvC0l 
NOV POS eos ,to FOooCH 
aos: Aoo sdefine location 265 
,orocedure POSUPD 
MPOSUPD: noo rentry point for 
PISUPD 
,detect condition=tyoe inout (lo-bit) 
in AX,21 7sense environmental data 
NOV Oro tele ax 


assign value of one variadle td another variable 
(16-bit) 


NOV AX,2C02 -assign 2C02 
NOV POSCH, 4X PLO UOCH 

e 

,orocedure MSSIN 

aYSGIN: No2 rentry point for 

MSGIN 

maetect coOndition=tyoe inout (16-bit) 
in AX,2ee 7sense environmental data 
NOV MSGREA,AX 

rtest for equality between MSGREA and IC01 (lo-oit) 
NOV VTO1,1 ,oresuopose equality 
NOV AX,™MSGREA fetch MSGREA 
en AX,29C01 ,comoare arguments 


20 





jz $+4 7eENd routine jf 


true 
NOV aT01,0 7nMot equal, vil0l = 0 
-oranch on false 
nov AL, vTO01 load value Vato 
accumulator 
como At ,0 ,comoare to zero 
12 966 -jumo to 966 if 


false(=0) 
73assign value of one varianle to another variaodle 
(lo-bit) 


TOV Ax, ?C01 -assian aC01 
NOV MSGIN,AX 7to MSGIN 
V663 noo sdefine location aoo 
v 
,orocedure Y¥SsSST0 
aVSGSTO: ADO rentry ooint for 
MSGSTO 
sdetect condition=tyoe inout (16~dit) 
in ae 7$eENS@ environmental data 
TOV MESSAG, Ax 
7send conditione-tyoe outout (lo-bdit) 
Nov AX, ¥™SGRCV 71ssue control 
Sut eae es 
,test for equality between NEXTYS and adC02 (loroit) 
TOV VTO1e 1 ,Oresupo0ose equality 
NOV AX, NEXIEMS sfetch NEXTMS 
emo AX,?C02 ,compare arguments 
}2 $+4 7eENDd routine if 
true 
NOV VT01,0 7MOt equal, atoi = 0 
-oranch on false 
NOV AL,aT01 ;load value into 
mecunulator 
ono AL ,0 ,comoare to zero 
12 v67 ,juno to a6/7 if 


false(=0) 
7assiaqgn value of one variable to another variable 
(16-bit) 


NOV AX,MESSAG Fassian MESSAG 
TOV ACQ,AX ,to ACO 
ao7: noo >define location I67 
rtest for equality between NEXTMS and dvC01 (lowvit) 
NOV TOI, 1 roresupoose edauality 
TOV ix, NEXT 1S ,fetch NEXTMS 
em) AX, dC01 ,Comoare arguments 
fiz $+4 -end routine if 
Crue 
NOV aT01,0 ynot equal, aTO1 = 0 
-oranch on false 
Nov AL,adT01 -load value into 


el 





azscumulator 


AL,0 
D6 8 


rPeEOMNOaere tS Zero 
,jumo to 608 if 


,assiagn value of one variable to another variable 


emo 
iz 
false(=0) 
(16-bit) 
Nov 
NOV 
2683 Noo 
,test for equality 
NOV 
NOV 
eno 
}2 
true 
Nov 
,oOranch on false 
NOV 
azcumulator 
como 
}2 
false(=0) 
7assi1aqan val 
16-bit ) 
NOV 
NOV 
a595 Noo 
,test for equality 
NOV 
NOV 
em. 
j2 
true 
NOV 
-oranch on false 
NOV 
accumulator 
ena 
J) 2 
false(=0) 
7assiagn value of on 
(l6-bit) 
NOV 
NOV 
a703 noo 
r,test for equality 
NOV 
NOV 
emo 
j2 
true 


lide 


ue of one variable to 


Ax,MESSAG 7assign MESSAG 
AC1,AX £6 Gl 
sdefine location 968 

between NEXTMS and @005 (lo-dit) 
ayToi,l ,OoresUODpOSse equality 
XG NE XIMS pteteh NEXIMS 
AX,@C03 ,Comoare argunents 
$+4 7eENd routine if 
a701,0 Pmotnequalwedlol. = 0 
AL, @?T01 ,load value into 
AL,0 ,comopare to zero 
69 ,jumo to @a69 if 


another variable 


AX, ™ESSAG ,assign MESSAG 
AC2,AX r,to ACe 
sdefine location 09 


between NEXTMS and @a~C04 (1lbo-oit) 


aT01,1 -oresupoose equality 
AX,NEXTMS >fetch NEXTMS 
AX,aC04 ,cOmpare arguments 
$+4 7eENdG routine if 
aTO01,0 snot equal, ITO1 = 0 
AL,@aTol > load value Into 
AL, 0 ,comoare to zero 
70 pine to, a1 Oo 7 f 


e variable to another variable 


AX, “MESSAG 7assign MESSAG 
AC3,AX ,to ACS 
sdefine location 270 

between NEXTYS and aC05 (lbo-oit) 
aTO1L, 1 roresuovose equality 
AX,NEXTYS >fetch NEXIMS 

AX, vC05 ,comoare arguments 
$+4 7eENd routine if 





TOV gyT01,0 
,Ooranch on false 
NOV AL,aT01 
accumulator 
om 2 AE, 0 
jz D7 1 
f3alse(=0) 
Passiagm Valdecotf one Variable to 
mobi t ) 
NOV Ax,™MESSAG 
Tov AC4, AX 
a/13 noo 
r,test 
NOV VTO1,1 
Nov AX,NEXTMS 
en> AX, C06 
jz $+4 
true 
NOV mAaeO U0 
7oranch on false 
NOV AL,v?T01 
azcumulator 
cite AL,0 
}2 V7 2 
false(=0) 
,3assian value of one variable to 
(L6o-bit) 
NOV AX, MESSAG 
NOV ACS,AX 
Vic: noo 
rtest for equality between NEXTMS and ald7 
NOV aTOl1,1 
nOoV AX,NEXTMS 
~mdo AX, C07 
pz $+ 4 
true 
Nov aT01,0 
r7oranch on false 
NOV AL, 0IT01 
asccunulator 
en) AL,9 
v7 3 


false(=0) 
assign value of one variandle to 
(16-bit) 


NOV AX,“ESSAG 
TOV AC6,AX 
a/73: NO 
rtest for equality between NEXTIMYS and @aC08 
TOV aT01,1 
NOV AX, NEXIMS 


tre 3 


PmMOteeoua |! wed) Utes 0 


,lioad value into 
r,comoare to zero 
rsumo to a/i if 


another variaole 


passivam MESSAG 
7to ACY 
sdefine location @71 


for equality between NEXTMS and 9006 (lo-dit) 


,oresunpose equality 
r,fetch NEXTMS 

,cComoare argqunents 
7eENd routine if 


FROCwMeQual, alo! = 0 


,load value into 
,comoare to zero 
Payumo tb Ocd!/ cat 


another variaole 


mass aqn ME SONG 
7 CO ene > 
sdefine location a7e 
Chom ot )} 
r,oresuooose equality 

mtetch. NEXIS 
,Comoare arqunents 

Peng mout ime. 1f 


,nNot equal, PTOI = 0 


Prtogadevalue 1ato 
7COmOare to zero 

-jumo to @/73 if 

another variable 


-assian MESSAG 
rto AC6 
“Jjetine location “a7 3 
C(los501 t) 
,Oresuno0o0se equality 

,fetch NEXIMS 





cmo LX aeoc ,conpare argqunents 


iz B+4 end routine if 
ane ue 
NOV g7T01,0 snot equal, awroOl = O 
,Oranch on false 
nov AL,vT01 ,load value into 
accumulator 
emo AL,0O rcompare to zero 
iz v74 ,;jump to a74 if 


false(=0) 
,assian value of one variable to another variable 
(lo-bit ) 


NOV AX,MMESSAG r,assian MESSAG 
nov AC7,AX Pe Or AL] 
v743 Noo sdefine location @/4 
stest for equality between NEXTYS and aACO9 (1lb6-nit) 
NOV atTol,l ,oresuppose equality 
NOV AX,NEXTYS >fetch NEXTMS 
Gm) AX,27C09 ,compare argunents 
}2 $+4 rend routine if 
true 
NOV avT01,0 snot equal, a~T01 = 0 
,oranch on false 
NOV AL,@T01 >load value into 
aecumulator 
cmo AL,0O ,comopare to zero 
}2 a75 r,jumo to a/75 if 


forse (=0) 
,assian value of one variable to another variable 
(Ll6“bit) 


NOV AX, YESSAG -assign MESSAG 
NOV ACR8,AX Pro ACS 
V/753 ao :define location 975 
test for equality between NEXTMS and @f10 (lo-nit) 
NOV vTO1,1 ,oresuonose equality 
NOV AX,NEXTMS pretech NEXIMS 
omo AX,@C10 7conpare arguments 
}2 $+4 7,end routine if 
true 
NOV d7T01,0 -Not equal, ITI! = O 
,oranch on false 
NOV AL,@T01 ; load value into 
accumulator 
cmo AL, 0 ,compare to zero 
j2 a76 ,;jumo to a/76 if 


Paltse(=0) 
-assiqn value of one variaole to another variadle 
(1l6“bit) 


NOV AX,MESSAG -assign MESSAG 
NOV AC9,AX ,to ACY 
a/76$ Noo sdefine location @/6 
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r,add lb-bit NEXTMS + ICO1 = ATO} 


pretenm fiest 
add second argqunrent 


7store answer in 2701 
another variable 


Fassian a! 0) 
zto NEXTMS 


,roresunopose equality 
fetch NEXTMS 

rcomoare argqunents 
,end routine if 

-not equal, artoi = QO 


,ltoad value into 


-comoare to zero 
pjlumoet Oo @ f 7 Cant 


another variable 
-assian w0e 


,to NEXTMS 
sdefine location 7/7 


Nov AX,NEXTMS 
arqument 
add Ax,7C01 
i> first 
NOV vTO1, 4X 
,assign value of one variadle to 
(16-bit) 
NOV AX,aT01 
TOV ME vis 4 x 
z,test for equality between NEXTMS and AC14 (lbo-dit) 
NOV MT01,1 
NOV AX,NEXTMS 
emo AX,7?C14 
jz $+4 
true 
NOV aTO01,0 
,oranch on false 
NOV AL,dT01 
accumulator 
Cmo AL,0 
jz v/i7 
false(=0) 
73ssign value of one variaole to 
(lo-bit) 
NOV AX,@C02 
TOV NEXTMS, AX 
a/7: noo 
rtdefine 8Br-bit data corstant 
ac 0} equ 1 
sdefine 8-bit data constant 
aC 02 equ 0 
,define 8B-bit data constant 
aC03 e Qu e 
sdefine 8-bit data constant 
aco4d equ 3 
poaetine S=bit data constant 
aC05 eau 4 
paietune oot data corstant 
gC 06 equ 5 
r,define B8=-bit data constant 
2007 equ 6 
;define 88-bit data constant 
aC08 equ 7 
rdefine 88-bit data constant 
aC09 equ 8 
paetine S=bit data constant 
aC id equ 9 
rdefine 8=-bit data constant 
aCii equ 30 


,define Am-bit 


data constant 
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IE12 eau 20 
sdefine 8=-bit data constant 
aCi3 equ 15 
,define 8-bit data constant 
aci4 equ 10 
,define 8-bit storage 
ora 1023 78 dit variable ATO! 
aTols: ada 
ora 986521 7rom address oointer 
;define 88-bit storage 
One 1023 7,8 bit variable aT0e 
aTOes: do 
org 9865e1 7rom address oointer 
; - monitor section ~°- 
a 
asovsers: MOV AX,ataole rinitalize table 
p inter 
mdv Aaontr, AX , to heairnning 
anlioo: MOV BX, VOntr FROM VCOR?, 1000 
Male BX 
137¢ 6B xX 
15¢ Bx 
MOV yontr, BX 
jno B x 
; - data section = 
ora 1023 
yonters dw 0 rtadle entry 
address pointer 
org 985521 ,rom address oointer 
dataodle: dw Jonter ;tadle header 
(djefine too) 
jno atKEYIN™M r,test for 
Sem@tuyingency KEYINM 
jno Ve VINTAC ,test for 
contingency MINTAC 
jno at SMMANY test for 
contingency SMMANJ 
jno at SVAUTO rtest for 
contingency SMAUTO 
j no at Peoee ptest for 
continaency TPOLL 
jno Jt MLOCAT ,test for 
contingency MLOCAT 
jno at TMLOCA ,test for 
contingency TYLOCA 
jno atPOSCH Fptest for 


1 
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eontingency POSCH 
j}no 
contingency MYSsSDS 
pro 
contingency WCLOC< 
}no 
contingency MLOSIN 
jroo 
cantingency TLOGIN 
}no 
cantinaency TLOGOJ 
yno 
cantingency MSGIN 
yno 
cantingency YSGIN 
yno 
table 
, 
IVtKEYINM: ea let 
Seeatinagency code <EYINM 
Ene 
Gemtringency result to 


HZ 
execute KSINPM 
Cal 
KRS3INPM if true 
jno 
atMINTACs: eat 


continaency code WIVTAC 
cno 
contingency result to 


$72 
execute INTAC 
call 
1f true 
) no 
, 
at SMMANU?: ea le) 
Contingency code SMYMANU 
cno 


contingency result to 


12 
execute MANUAL 

call 
MANUAL if true 

Pn 


=e 


he7 


at VMSGOS 
tee OC 6 
vt 4LOGIN 
at TLOGIN 
at TLOGOU 
at ¥SscINn 
vt VSGIN 


ysover 


@KEYINM 


KEYINM, 1 


tat 5 
VKSBINPM 
Imloo 
MVINTAC 


MINTAC, i 


Pat > 
De 
amloo 
aSMMANY 


SMMANU, 1 


eet aS 
MANUAL 


ymloo 


e 
v 


e 
e 


stest for 


,test for 


,test for 


,test for 


,test for 


test for 


test for 


FOCmt O eStangt. of 


strue flaa 


,execute 


,comoare 


(1) 


pt. ta Sead >. FO t 


rexecute task 


7FetuUrm tO Nom) tor 


,execute 


,comoare 


rtrue flag (1) 
V7) false do Aot 


, 


2 


e 


° 
, 


w 


e 
e 


xecute task INTAC 


fFetucn toO* Ton) tor 


,execute 


,comnoare 


true flag (1) 
Witt se. ao NOt 


execute task 


return to nonitor 





atSVAUTO: call 
contingency code SMAUTO 
cno 


mamcingency result to 


jz 
execute AUTO 
call 
if true 
jno 
, 
ate Ou: cal) 
Seemtingency code FRILL 
cno 


contingency result to 


jer 
execute POLLAU 
call 
PIJLLAU if true 
jno 
at vVicQe sé ft : call 
contingency code MLICAT 
cno 


Semcingency result to 


jz 
execute LOCATI 
cal} 
meeantl if true 
jno 
at TVMLOCA: call 
contingency code [FMLOCA 
cno 


Gomtyingency result to 


ja2 
execute MANLOC 
cal] 
MANLOC if true 
no 
ater oc H § cal] 
Gemermgency code P0SCH 
cno 


Seameingency result to 


jez 
execute POSUPD 


kee 


VSVAUTO 


SMAUTO, 1 


Bee tue 
VAIJTO 
amloo 
VTPOLL 


PesiL > 1 


fat 

APOLLAU 

amloo 
M@MLOCAT 


MLICAT,} 


St 

JLICATI 

amloao 
@TMLOCA 


TMLOCA, 1 


hap 
aMAaNLOC 
am1loo 
Ve och 


EOStH. 1 


rexecute 
,comoere 


ye muew flag. 01) 
FVfutoalse Jd) mot 


rexecute task AUTO 
eet wim. | OMen Om int or 
rexecute 
,comoare 


pUruert ia circ.) 
Pit false «do not 


r,execute task 
PEetunm (5. ne 1cor 
rexecute 
,comoare 


Ft rues: laa Gl) 
prtetorse 25 fot 


r,execute task 
,eeturm. toumons tor 

rexecute 
,comoare 


Ferues ft lace il) 
,¥' false ado not 


rexecute task 

Ameo Ut Oo. =O oN tor 
rexecute 

,comoare 


Perdue taeaa 1) 
,1t false 45 not 





E311 
PISUPD if true 
jno 
ItMMSGDS: call 
continaency code YM5GDS 
ene 


Easntingency result to 


lan 
execute MSGDSP 
c3ll 
MSGOSP if true 
}no 
me ol Ks cal) 
eemeingency code MCLOCK 
END 


Contingency result to 


$2 
execute CLOCKS 
c3l) 
C.OCKS if true 
jyno 
atMLOGIN: call 
contingency code WLIGIN 
cno 


contingency result to 


Paz 
execute LOGINO 
eal 
LIGINU if true 
}no 
at TLOGIN: cal} 
continaency code JTLIGIN 
enc 


momeyrnqency result to 


$72 
execute LOGIN 

eal) 
if true 

nS 

at TLOGOU: call 

@emernaqgency code fLIGOU 

cno 


lee 


ayPOSUPD 
dmloo 
aYMSGDS 


BSG S71 


pate 

IMSGDSP 

amloo 
TMG OC K 


MCLOCK, 1 


pare 

ie LOS 
amloo 
VMLOGIN 


MLIGIN, 1 


$945 

dJLIGINO 

amloo 
JTLOGIN 


TLOGIN, 1 


yt 

@LOGIN 

amloo 
VTLOGOY 


TLOGOU, 1 


,execute task 

PRetCUEh 60. nom or 
rexecute 
,conoare 


rior emt Iam 't 1) 
pie Tarse d>. not 


,execute task 
preGuro Co nog) tor 

,yexecute 
,comnoare 


-true flag (1) 
rit ta! Se .d> sot 


rexecute task 
FReLUrM to nonlrtor 

rexecute 
,comoare 


rtrue flag (1) 
,if false do not 


rexecute task 
Preturn to nomi tor 

rexecute 
,comoare 


jtrue flag (lh) 
pet otalse Asamno0t 


,execute task LOGIN 


,yreturn to nonitor 


rexecute 


,comnoare 





Gomtingency result to 
;true flag (1) 
jr2 fot pit fal sen doy aot 
execute LOGOUT 
call wLIGOUT rexecute task 
LIGOUT if true 
jn aymloo Pee Curie st Gene) t.O.c 
, 
OtMSGCIN: cal] MMSGIN ,execute 
contingency code MSsIN 
cno MSG ENG) ;comoare 
continaency result to 
7 erue wt tag (1) 
fog $+ 5 pit a1 S@mdo mot 
execute MSGSTO 
call a4SGCSTO ,execute task 
MSGSTO if true 
jno amloo PEetiunm tO: noma or 
end -software listing 
comolete 


this realization consumes 
and contains 1:62 S4ehna os: 


130 


71.180 watts of power 





APPENDIX E 


Teves oeen OUTPUT 
LISTING CHARDAARE ) 


central orocessing unit 
devicezintel] 8086 nicroorocessor(max*mode;sno 
njo),icl 
Gonmec tyoas. 
D1INnS 
Peels tc, blip Ue o7 O71 Or de Ke 570, 597 58, 57756755 = 
moos 19) 
DIAS erm seme s, Ve, lls 10, Op 5, 17 Oe 574s Se ee 59 = 
m0: 15) 
Sim tv Canw)) = ond 
pin 18 Ciratr) = gnd 
pin 19 = elk 
pin $4 = ogheebar 


pin 33 (ma/maxebar) = grd 

pin 32 (raenar) = nec. 

pin 51 (ra=bar/gt0-bar) = n.c. 
pin 30 (raevar/ati-eoar) = nec. 


Bm 2? “Cloek=oar) = n.ce 
pin 28 = sem-bar 


opin e7 = sliebar 
Din 25 = sOebar 
Baim co Cas 0) v= in.c. 
por ec w(QsijJi= m.C. 


Oc cometest@=bpar) = 9gn4 
Bim cc = ready 
pin el = reset 
Sims i720 = Ging 
one dU) =a ov 
clock generator (0.125 us 
Deawece omaateleceou Clock ge5 and driver for 80fo 
mots icc 
connecti1o01s?: 


aim Wl fesyvac)) = and 
oin 3 (Caenlebar) = and 
opin 4 (rdvl) = +5v 

21n 5S (readv) = ready 
Din 6 (rdy2) = gnd 

pin 7 (aen2e-bdar) = and 
oin 8 = cle 

coin 19 = reset 

pin ill = resbar 


Sia 15 Ci/s=bar) = 3nd 

oin 14 (Cefi) = gna 

pim 15 (Casynco-bar) = +5¥v 

Smomeloy le woxtarcl:e) J 9= device: e4 mhz crystal 


tesa 





OInNS 9 = gnd 
Sime lo = tov 
feral bus transceiver/data bits 0:37 
@eyice: ints! €@286 octal bus transceiver, 1c3 
G@oanmectyons: 
DINS Vo pee eg hielOy 15, l4et4e-1e2 Cob CO J:). 5= dio (0.274) 
aim 1 (a0) = dtd) 
Om cc Cal). =h0( 1) 
oin 3 (ae) = dle) 
91in 4 (a3) = d(3) 
ain 5 (a4) = d(4) 
aim O06 (35) w= (5) 
om? €a5) "= dle) 
sam oS Cal) = a7) 
Syme 2 (oe-sar) = snot. den 
o1m it (t) = dt/reoar 
aij ia! U0 B= Teli, 
Spee 0] oh oy 
octal ous transceiver/data bits 8:15 
device: intel &286 octal ous transceiver, ic4 
eommect1ons: 
O1NS Votes tis lo, lo, 14, 1S5,1-2 Cain@ 07 ) = dita sels ) 
Sam. © (a0) = alt) 
91n 2 fal) = atl) 
oin 3 (ae) = dl2) 
91n 4 (a3) = a3) 
ayvinew >. Cad) = d(4) 
ayn © (a5) = d(5) 
9in 7 (a6) = d(6) 
ones ul ai a= d(7 ) 
Balan 9 (oe*oac) = «not. den 
sae) (ty) = dt/r=var 
oin 10 = gnd 
Siac = +5 ¥ 
Suse controller 
Gewese e ate leocoo ous comtroller for 8086 cou, 165 
connections: 
91n 19 = sO-bar 
Sines = Ssi=bar 
9in 18 = s2-bar 
971N 2 = clk 
pin 5 = ale 
Stn 16 = Jen 


omme. = dat/r-oar 


Sim 6 (ae=-aar) = and 
Sia! Cob) +5v 
oin 7 = anerde-bar 

oin 9 = nwtcrbar 

91N Lil = iawee-bar 
90in 13 = torcebar 
pin 14 = iata-bar 


hee 





Sim 15 €eenk = +5v 
oin 10 = and 
91n 20 = +3 
Seto atenvacaress ots 037 
devices. tatelmceoeceoctal latch for 8086 cou, icd 
connections: 
Sigs lc, more Ort go (G1 C027)) = al0:7) 
Sse | tedopelet el Ov toe 14s! oe le Cdol0s/) = a(0:7) 
oin 9 Coero.ar) = qnd 


ave 11 €steo7, = ale 
So 10 = cad 
Sin co = ow 


Seta latchZadgeess oits 8:15 
sevice ateetmm~niece octal’ latch for 80486 cour ic? 
connections: 
DINS fe mods Dp Or 17 O Cay C07) ) = Gare 1. )) 
DINS WO Gets bo, 15,149,115, 12 (do(0:7)) = a(8315) 
91n 9 Coemsar) = ard 


o1in li €sto) = ale 
91in 10 = gad 
Sin 20) = toy 


Seto vatceh7adaress o1ts i16:19 
gewureecs vate) Gece Ssetal latch for 308 cou, 1¢8 
connections: 
991nSs 1leevde4 (d10023)) = af l63:19) 
Sinem l oy lo, ty,1o C€Cdo(0:5) = a€16:19) 
Sinise see ee) ©0105: 7) ) -= sand 
aim 7? (oe@=oar) = land 
Saiyveli (sto). > alte 
Ornet Oo = q70 
Din 20 = +5v 
address decoder/adiress for nenory select 
device: intel 8205 leof-3 binary decoder,1c9 
connections: 
Orme 15 Co€0)) 
91in 14 (9(1)) 
omits Co(2)) 
Spare! c- oS 0 S)) 
Sunil €5C4)) csustoar(5) 
pin 10 (9(€5)) csu-bar(6) 
Din 9 (o0(6)) = csuedar(7) 


Ssu-Oatw),) 
csueovar(2) 
cesuedar(3) 
csusbar(4) 


Sums 7  Cot7 )) csucpar(&) 
pin 1 = a(15) 

Din 2 = al(lb) 

Sim 5 = ais) 

919 4 (eleoar) = a0) 

Sime oP cee-oar) “= a(18) 
9in 6 (e353) = .wenot. all19) 
Ste 0. = -on a 

Sie lo = $5¥ 


address detoder/address for nenory select 


IS 





Gavupee: mheteece0s leot-8 binary decoder,icl!0 
connections: 
Dim 15 (5960) ) 
oin 14 (301) ) 
Spina bf 5 2G) 
Sim. be iCotes))) 
ea. Ll “Gott ) 
Din 10 (9(5)) csuwbar(14) 
Nin 9 (0(6)) = csuebar(15) 
(o(7)) = csusbar(16) 


csuwpar(%) 

csuctbar(10) 
csuebar(il) 
csustpdar(l1l2) 
cesusbar(13) 


Onis 1 

pin 1 = a(15) 

Din ec = a(lb6} 

ain $ = a(17) 

91n 4 (ele-oar) = al(Q) 
pin 5 Ced-oar) = a(19) 
Sqm 0) Ces) e=) a (18) 
Gigiee = ona 


pin 16 = +5¥v 
address decoder/address for nemory select 
devices intel 8205 l-of-8 binary decoder,ictil 
Gammect ions > 
Same hs. to 0)) 
9in 14 (9(1)) 
Gime 15. (5¢2)) 
Sune lc (5 C5) } 
pin 11 (9(4)) 
Bia! O (305) ) 


csusbar(1/7) 
csuwoar(18&) 
csumbar(19) 
csuspar(20) 
csueoar(el) 
csustoar(ec) 


Din 9 (06)) = csumbar(23) 
pin 7 (o7)) = ecsusnar(2e4d) 
Syne.) = aC) 5) 

Sim e¢ = a(l6) 

oin 3 = a(17) 

oin 4+ (elweoar) = a0) 

pin 5 (e2enar) = a(18&) 

coin o (e3) = a( 19) 

91n 8 = gnd 

Sam fo = +54 


address decoder/address for nemory select 
device: intel 8205 le-of-8 binary decoder,icl?2 
connections: 
Smee) os Co C0) >) 
Syme 4 C5 Cl) ) 
Sines (52) >) 
Brn le €>C35)} 
om 11 -(o€4)) 
pin 10 (9(5)) csun-pvar(30) 
Sin 9 (0(6)) = csurbar( 31) 
(o(7)) = csumbar(3e) 


csucpar(2S) 
csun~ovar(26) 
csusbDar(e/7) 
csuwpar(28) 
csusdar(29) 


Simi? 

oin 1 = a(15) 
Din ec = 3a(16) 
oin 3 = a(17) 
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Sim, 4 Cel=-oar) 
01in 5 (ede-oar) 


0 


om ro Ceo) =. 
Svea 8 = gad 
oin 16 = +3¥v 
address decoder/ad 
device: inte?!) 820 
Eonmnect io 71s. 
om 15 “Gol0)) = 
oin 14 (€9(1)) = 
Sim 15 (oG2)) = 
Om. be (5 CS) = 
aim 1! Cot4)) = 
aam £0 €9(5)) = 
Sim 7) Co Con) = c¢ 
Oise COG oe =A 
oin 1 = a15) 
oIn ec = al(l14) 
oin 3 = a(l7) 
o1n 4 (elendar) = 
91n 5 (Cedceoar) = 
ain 6 (e3) = .no 
9in 8 = 3n3 
oin 16 = +53Vv 


address decodger/ad 
device: inte] 820 
connections: 


a(0) 
a(18) 
t. a(19) 


dress for nemory select 
5 leof-8 binary decoder,1cl3 


eslo-bar(1) 
csl-par(e) 
cslenvar(5) 
csle-ovar(4) 
cslepvar(5) 
cslepar(6) 
slebar(/7) 

slebar(8) 


bhe-boar 
a(18) 
t. a(19) 


Oress for nenory select 
5 leof-8 binary decoder,ic!14 


csle-pvar(9) 
cslebar(10) 
cslebar(1l1) 
cslebar(le) 
csleoar(13) 
csleoar(14) 
slebar(15) 
slepnar(16) 


bheebar 
a(19) 
8) 


address decoder/addreass for nenrory select 


Spiel > “Co C0)) = 
Ome C35 01)) = 
nin 13 (9(2)) = 
Oiperte (505)) = 
oin 11 (9(4)) = 
9in 10 (9(5)) = 
Sim 9 (0(6)) =c 
oymer €ot7)) = ¢ 
oin 1 = a(15) 
91M 2 = al(l6) 
9in 3 = a(17) 
pin 4 (eleosar) = 
sin 5 (eeroar) = 
opin 6 (e3) = all 
ayn 8 = gna 

pin 16 = +5¥v 
device: intel 820 
connections: 

91n 15 (9(0)) = 
91in 14 €o(1)) = 
ain 5. (9 Ce2))) = 
aymeete (oC5)) = 
pin il (9(4)) = 


A 
Wi 


5 leof-8 binary decoder,icl5 
cslepar(17) 
csleoar(18) 
Es) =boar Gl 7) 
csleoar(20) 
esl=sanr(el) 





Belo Ga sae = CS|l=—bar (ec ) 


01in 9 (o0(6)) = cslrbar(23) 
oin 7 (o(7)) = cslwbar(e4) 
aim | Ss atl>s) 

oin 2 = al(16) 

Sin 5 = “a (al?) 

91in 4 (elwroar) = bheebar 
pin 5 (edwoar) = a(18) 

ayn 6 (es)7 = -a(19) 

oin & = 3nd 

oin 16 = +5 


address decoder/address for nemory select 

device: intel 8205 leof-8 binary decoder,icl6 

econmections: 
Sa >. (5.0) ) 
Sime 6 o> Ge) 
Sige 5 “€OCc )) 
ovina, le C55) ) 
pin 11 (5(4)) 
oun 0) Cato, ) 


cslevar(25) 
csl=oar(c6) 
csleoar(e7) 
cslevar(28) 
csleoar(29) 
csleoar(30) 


Sime? (Coto) = "eslt=bars)) 
o1in 7 (ol7)) = cslebar(3ce) 
oin 1 = 3(15) 

pin ec = a(16) 

Ova > = aly) 

01n 4 (elwoar) = bhewbar 
91n 5 (e2-9ar) = a(18) 

o0in 6 (e353) = .wenot. all9) 
Oya Go. = 3nAo 

o0in 16 = +#+5¥v 


condition node input interface hardware to sense 
sianal KEYFLG 
SQewuce -ynveleoele Ge bit $76 oort,ic 17 
eonmect 107s: 
Smoove soy lore U,cce (Gd) (12:8)) = KEYFLG(1:8) 
remainder to 


around 
Sms OF OU, 1 ot 7, Opel (doll:8)) = db(1:8) 
opin e2¢ (md) = and 
Pim 1) Cet) = gnd 
Oimevetosleparl! = snot. (decode a(0:7) value 0) 
Oui ls (dS2) = 4n0 sand. doin 
pin 24 = +t53v 
Sialic = and 
condition node inout interface hardware to sense 
Suomal KEYFLG 
Geywmcesrynteloeocitc 8 Dit 1/0 oort,ic 18 
GoOnmnect sons; 
DG 7 Se poe lo, 1o,e0,ece(d1(9:16)) = KEYFLG(9:16) 
remainder to 





around 


DINS ao eos 17, 19,21 Cd0C92 16) ) = db(9:3156) 
Sim ¢ (ma) = aQnod 
Gyms Li “Csto) = gnd 


Sine) podeil—-oar) = «not. (decode a(8:15) value 0) 
Oia > sGadseme= 10 <and. Goin 
o1in eY4 = +dv 


Din le = and 


lbeomcitlOuUCOUIEE mort —conOosed of two & bit oorts 


“IS VS Pomenlow order oyte 
Ko VSetoecewniron order Syte 


conditionemode outout interface hardware to issue 


Ssacimal: x 


8 are req 


Cc 
sianals: x 


8 are req 


= © 

Seramal “Ee 
dq 

Cc 


remainder 


around 


1 
device: intel 8ele B-bDit i/o oort, ic 19 


Gonmect 1oms.: 


Suse Ss esr lO, lOpceO0,ee (41(138) 


= db 
DINS aor os Loy lt VO, cl (dotl: x 


) 
)) = 


— 0 
ee OD 


(1 
1 ( 
Sia “cetmsa) = +5¥ 

prm lil Csto) = 9nd 

opin 1 (dsiwebar) = wredar 

oin 13 (dse) OUtsmeanmd..) (Jecoge,a(037) value 0} 
DA co (vee) +5 

ove le Cand) gnd 
ondition=mode outout Interface hardware to 1sSsue 

9 

Gevace- nimteleocic S=bit 1/75 oort, ic 20 

Gommec toms : 

DINnS Cio soo, lose U,ee. Ca1(128)) = dbt1i:8) 

DINS VO7 eo, 10-7 15,17719,e!1 (do(1:8)) = x9(138) rif 


Simic (ma) =. +5¥ 

ove 1 (stb) = gn7 

Din 1 €dslebar) = wre-bdar 

oin 13 (dse) = out .and. (decode a(0:7) value 1) 
aimee (yc) OV 

Siete Coad ) aind 
ndition node inout interface hardware to sense 
YCHA 
Svacecintel Scie 8 bit 17%o oort;,ic 21 
onnections: 
DINS Sor oe ona, ec0,ec(dai()2:8)) Sie) CO Pee) 
to 


oud 


nGePOpoe NO, oy 17519, clCaol(128)) = db(1:8) 
Sigeee (Oma) = and 


OMe cst) = ond 
pin 1 (dslebar) = .not. (decode a(0:7) value 1) 
Sipelowtlase) = ino <and. doin 
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sym cd = +5¥ 
Ow Le = relac 
condition nose inout interface hardware to sense 
Sonal KEYCHA 
deyvicezintel 8212 8 bit i7o oort,ic e2 
connections: 
Sins 5s Deseo te, cOs,ece(d1(9216)) = KEYCHAC9:16) 
remainder to 


qround 
Onis oop lon i pt PepeclldoC9:16)) = agb(9316) 
91n 2 (md) = and 


aym ll €sto? = and 

o0in 1 (dslebar) = .not. (decode a(8:15) value 1) 
Guest Sea y= NO .and. dain 

91m ec4 = +5y 


Sim) le = @qad 
condition node inout interface hardware to sense 
Sqyonal “EYCHA 
deuwpreceyntere cele G bit i/o oort,ic 23 
connections: 
nso, Spt los lO,e0,ee(d1(1283)) = KEYCHACI:8) 
remainder to 


ground 
D1NS OOmieeUel se) 1, 8o,eclCs0(1 28) ) =sgp (126) 
Simece (ma) = gnd 


oan lt sto) = and 

pin 1 (dslebar) = .w.not. (decode a(0:7) value 2) 
Sp se CASe) = Iho .and. doin 

oin c4 = +5v 

pin le = gnd 


condition node inout interface hardware to sense 
Soma! <XEYCHA 
devicez:intel 8ele 8 bit ifo oort,svic 24 
GOnRmMec tT VONS > 
DINS Soy lon Orc Us, ec (a1(9:16)) = KEYCHA C9216) 
remainder to 


ground 
Disa, Op,o yc, boy li, 19,cel(dol(9:16)) = ab(9:16) 
0in ec (md) = and 
Simo bie (Sto) = gnd 
Simei (dSsl-bar) = .not. (decode a(8:15) value 2) 
OMe Ss ~CASe Je ino send, dd17 
Sipe c4 = ++5¥ 
bam le = ard 
PomGit mOUGOUtm DOnt COmeosed of two 8 bit oorts 
x17 18 for low order byte 
x?S 1s for high order byte 
conditionemode outoutr interface hardware to 1S8sue 
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eaonmal: xt/ 
Aewices meer octic G2=bit 1760 port, ic 25 
GOnmeec UV ons. 
Sime 5, oo, lO, lo,cO,ee (d1(0128)) = db(12:8) 
DINS SO poop oe | fe l Pec 1 Cdlo Gl.) )) Ss x ty Cle 6) 31 f 
8 are req 
pin ec (ma) = +#+5v 
pin il (stb) = gna 
pin 1 (dsiebar) = wr-oar 
pin 13 (ds2) = out .and. (decode a(0:7) value 2) 
pin 24 (vec) = +5v 
pin le (gnd) = gnd 
condition=node outout interface nardware to issue 
Signal: x25 
device: intel 821e 8B-bit i/o oort, ic cb 
connections: 
Dis, Se ceo, 1 O,cU,ec Cd1(1:2:8)) = db(i:8) 
DINS Uomo Or LO, biel vec | Gado Cl 26:)-) = x25(1:28) , if 
8 are req 
o0in ec (md) = +5v 
Bee tl Ustb)) = gnd 
pD1Nn 1 €dsiebar) = wr-oar 
pin 13 (dse) out .and. (decode a(0:7) value $) 
om e4 Cysc) 15.9 
omen te .Cgad) and 
condition noge input interface hardware to sense 
eamama! NKEYCHA 
‘evucetimtelwGete 8 Dit 1/0 oOort,1¢c 2/7 
connections: 
pins 3,5-7,9,16,18,2e0,e2(dil(i3:8)) = KEYCHA(1:8) 
remainder to 


> th ol 


around 
Score, ont pl Opel (dol? 8)) = db(1:8) 
Spin 2 (md) = and 
Stmedwsis €St>)) = gnd 


Siac aSst~oanr) = .not. (decode a(0:7) value 3) 
Seo eo dsc) = Ino ~.and. doin 
91nN 24 = #5 


Digre = and 
Condition noge inout interface hardware to sense 
signal KEYCHA 
Sevice:yntels Selle 8 bit 176 osort,ic 28 
connections: 
SiS Sy Jp per Oy lor ec0,ec(di(9:16)) = KEYCHA(9:16) 
remainder to 


ground 
Oivasmor,Oro, Uy to, '7,19,21(39(9:16)) = dhb(9216) 
pin e (md) = and 
Sum tt (€sto) = gnd 


1S? 





Sime: (adSl=oac) = snot. (decode a(8:15) vatue 3) 
Sime 5 (ise) = ing .and. doin 
Sime cl = +5¥ 
OIN le = qnid 
condition node inout interface hardware to sense 
aimal “XEYCHA 
Hewpeecinteiweocilc 8 OIt 170 oort,ic e9 
connections: 
DINS 57 Dp eo yom cO,ec(a1(1i:8)) = OME ye ti Ael | eon) 
remainder to 


aground 
Sis op Ogee nls, hig lIecl(do(138)) = do(l?:8) 
91m 2 (md) = gnd 


Sig sor (Sto. = sonid 
91n 1 (dsiebar) = .not. (decode a(0:7) value 4) 
o0in 13 (ds2) = tno .and. addin 


Simic d = +3v 
2a be =. ond 
condition nose input interface hardware to sense 
signal KEYCHA 
geyyeesintel 82il2 8 bit 170 oort,i¢ 30 
connections: 
DEMS 55 ly te Oy Pope 0, eco (d1(9:16)) = KEYCHA(9:16) 
remainder to 


ground 
Moe ls Onl bos 17, 19,e!l Cao 9216)) = db(9r16) 
oin 2 (md) = ana 
ovm ll Cst>). = ond 
oin 1 (dsivbar) = w.note. (decode a(8:15) value 4) 
Dames (36e¢) "= ino .and. doin 
pin e4 = +#5y 
91n 12 = and 
16 soit output port composed of two 8 bit ports 
YoOoVSetoG |Ow order byte 
x41 318 for high order byte 
condition=mode output interface hardware to 1SSsSue 
signal: x33 
device: intel 8212 B8-bit i/fo oort,s, ic 31 
connections: 
SnSo, Sete oO, lor! oycOpnee Ca1(128)) = db(1:8) 
Some, Opole lipo cl ecdo(i:8)) = x~335(128) Fif 
6 are req 
Din e (md) = +#5v 
pin li (stb) = gn 
oin 1 (dsiebar) = wrebar 
o1in 13 (ds2) = out wand. (decode a(0:7) value 4) 
Obie co (Voce) ~= +5¥ 
oin 12 (gnd) = gna 
condition=mode outout interface hardware to issue 
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Sramal: x41 
Sevivce:s pipieciasee te O=bit 1750 oort, ic 52 
connections: 
O1INS Sener s boy loge, ec Cale) ) b=) tb Cl: 8) 
Onis) 4eOp ou, low lsr19,e!1 CadoC138)) = x41(0128) if 
8 are req 


pin 2 (md) = +5v 
o0in 11 (stb) = gna 
DIN 1 €dslebar) = wr-oar 


o0in 13 (ds2) out .and. (decode a(0:7) value 5) 
Some 24 (vec) +Sv 
Sim le Cand) aime 
Uomo GC oUIPoOUlC POGOe e COnDOSed of two 3 bit oorts 
x49 15 for low order pvyte 
x57 is for high order byte 
condition=mode output interface hardware to issue 
sianal: x49 
Aevy Ce: Ymcelwoelewo=bit 1750 port, i1¢ 33 
Eonmnect tons: 
Ses oe pops, | opocu,eae  (diClst&)) = db(1:8) 
Sums por oploUrlont/sle,ci Cae(l2¢8)) = x49(1:8) 73 f 
8 are req 
ova. ec (ma) = +5y 
soil il (sto) = ana 
9019 #1 Cdsiebar) = wre-bdar 
sin 13 (ds2) = out .and. (decode a(0:7) value 06) 
Dame tas yVce je = (+5 
Simele Lond) 2-9 ond 
condition=mode outout interface hardware to issue 
eaomals: x5/ 
Jevice: intel 82le Bebit i/o oort, ic 34 
Goumect looms: 
OMS, Sele, Oe, bo, eO,ee Cady (bs8)) = db(1:8) 
PEG ore lO sl oy se lope CMe) $8)) = x5/(128) sift 
8 are req 
pime ec (ma) = 4+5y 
01in i! (stb) = ang 
O1Nn 1 (dsiehar) = wreoar 
Owes Lase ) SPC meen ercdeGcade oa(U0s/) value 7) 
ome cd (vce) +Sv 
Snme le Cond) "= gnd 
Moment oOUtDut port conoosed of two 4 oi1t oorts 
x65 15 for low order dyte 
x73 is for high order byte 
condition=mode outout interface hardware to issue 
emamalt: x65 
gdewiee.wimte! Sele B=bit 170 oort, ic 55 
Comaect ions: 
D1INS Se See os | Oe rRec GdnrGle3)) = db (1238) 
O1NS Popo, lUplis, lie i orci Gaot 1.3) ) = xoOoo Cl 2G) cif 
® are rea 
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orm ec (mda = +5¥ 
ava li (ste? = gnd 
pin 1 (dslebar) = wrebar 
Pinel omodsce ye = out .and. (decode a(0:/7) value 4) 
Dim cd (vce) +5Sv 
om Lewtard) qnd 
condition-smode outodut interface hardware to issue 
signals: x73 
AJOVGe sete enehiche G=bit t7o port, ic 56 
eonmect 1 sms: 
eS ome o, 13, c0,ee (41(128)) = dpo(i:8) 
DINS OVC pa oki ri Orvect Cdto(l:8)) = x735(1:8) 71 f 
8 are req 
oin ec (md) = +5v 
Om lh (stb) = 49nd 
Sn 1 (dslehbar) = wreoar 
pin 15 (dse) = out .and. (decode a(0:/) value 9) 
Simecs  Gvec) = +5¥ 
O01n te (and) = gnd 
boept OUtoUt bort conpased of two 3 bit ports 
x8t is for low order oyte 
x89 18 for high order byte 
conditionemode outout interface hardware to issue 
Sronal: x8l 
Sevnce:s imte! Gelec B8=bit i170 oort, ic 37 
connections: 
Densch oo e ole, | See OUrcee (d1(138)) = dbd(1:8) 
Snicm 4 oy ee toy lipo ve hk Cdoll:8)) = xSI(li:8) if 
8 are req 
Din ec (md) = +5v 
pin Ii (Cstb) = gnd 
pin 1 (dslebar) = wrebar 
pin 13 (dse2) = out .and. (decode a(0:7) value 10) 
opin ed (vee) = +5v 
pin te (and) = gn 
condition=mode outout interface hardware to issue 
sianal: x89 
Gevices intelisoele S=dit 1/5 oort, ic 38 
connections: 
DINS Bye pts bor lS,e0,ec CaCl 2ea8)) = do()}:8) 
Sins oy,ovoyoUrlosgtrpl?s,e!l Ca0(1:8)) = x89(1°8) -if 
8 are req 
pin e@ (md) = +5v 
om, Li (sto) =sgnd 
Ovna 1 Cdsi=bar) = wr-bdar 
pin 13 (ds2e) Out ssangs, (decode al(03:/7) value 11) 
Oumec 4 Ovice } +Sv 
Smele (aad) = and 
Powe st ouGeoort cOonoosed of two & bit ports 
x97 1s for low order vbyte 
x105 1s for high order pyte 
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condition=mode outout interface hardware to issue 
sronal: x9? 
device: intel 8212 B=bit 1/0 oort, ic 39 
connections: 
Suns ~o See milo, bs; c0,ec Cdil(ls8)) = dab (1:8) 
SniG 4 Oto sero tor li et tr cl (do(138)) = x9701:8) Fi f 
Beare req 


pam 2 (md) = 45¥v 
ein 11 (stb) = gnd 
oin 1 (dsiwebar) = wreodar 
Save (doc) =wout ~cand. (decode a(0:/7) value 12) 
Bin c4e Cyvee) = "tov 
Sum | 2 8C gma) -="on4 
9 


conditionemode outout tnterface hardware to issue 
sianals: «105 
device ss imuelmoac he S=51t 170 Oort, ic 40 
Conmec tions. 
DINS a, Sale tro, lo,cUr,rce Caio ays) = Jab C1s3) 
Suns Ge Ogle losv,tivi9?,cl (doll:8)) = x105¢€1:8) 
7if 8 are reg 
01nN +e (md) = +5 
oym !1 (stb) = gna 
o0in 1 (dsilebar) = wredar 
o01n 13 (ds2) Ot e.aniae (decode 9(0:7) valwe 15) 
own e4 (yee) +Sv 
Olin we. taad) = and 
Pommoes OUtOGtT mort, coOnposed of two $ bit ports 
x1l15 is for tow order byte 
xiel is for hiah order oyte 
condition=node outout interface hardware to 1Sssue 
signal: x113 
device: intel 8e!le B8-bit 1/9 oort, ic 41 
connections: 
Bims Oye pos tor! o,cUpec Cans: 3) ) = jp O13) 
DIANS 4,60,%8,10,15,17,19,21 Gio@l:3)) = x Prec l]:é) 
mite Oo are reg 
oin ec (mag) = +5v 
cone tl (Sth = ond 
oin 1 (dstiebar) = wrebar 
o1in 13 (ds2) = out .and. (decode al03:7) value 14) 
On c4 Cyee) = ++5v 
Oim le Cand) = "ond 
condition=mode outout interface hardware to 1SSuUe 
caramal: xi2l 
dewices nr iwmce |!) Gele Gebi1t 1/60 oort, ic 4e 
connections: 
CMS Oe ose O ree Ca1('28)) = dboti:8) 
DINS Sooo opt ls li 9e7e l Gates ).) v= Cie lti: 8) 
,if 8 are rea 
o0in e@ (md) = +5v 
Oa 11 (stb) = ont 


0 ou 
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pin 1 (dslebar) = wredar 
Guim 15 Case) Sut seana. €(aecode al0?:7) value 15) 
Sim co (vce) +5v 
eum le Cae) ene 
16 bit outout port conoosed of two 8 bit oorts 
xl29 is for low order byte 
¥157 1S for high order oyte 
condition=mode outPut interface hardware to issue 
eramal: x129 
dqeyice: intel B@2lte2 S-bit if7o port, ic 43 
econmec t 1 Ohisis 
Eales) OV mellow onreous, ce €31(198)) = dh(1:8) 
Sinise ope lop lt ploy e) Coo(1:8)) = xi2e9C1 2:8) 
rif 8 are req 
Dim ec (md) = +#+5v 
erm i! (stb) = and 
oin 1 (dstiebar) = wrebdar 
Ooim 15 €dse) = out wand. (decode a(0:7) value 16) 
bam c4 (yce) = +#¢5¥ 
01in le (and) = and 
condition=mode outout interface hardware to issue 
signals: «13/7 
devices intel] f2le B-bit ifo oort, ic 44 
eCommectvons: 
Dimon esp orl op eO,ec (d1(128)) = db(1i:8) 
Seis s4yloy sO, lonl/,19721 Cdo(128)) = x«i3701:48) 
mire > «are 6reg 
Simo e¢ (ma) = +5v 
Og 1t (stb) = ton 
pin 1 (dsiebar) = wr-dar 
pin 13 (ds?) out Samad. (decode a(9:7) value 17) 
om 24 (vec) +5Sv 
pin ile (and) ana 
Pomoc utCOuCwoOortrcanmoosed of two & oit ports 
*x145 18 for low order byte 
x153 is for hiah order ovte 
condition=node outout interface hardware to issue 
eeeoimal: x145 
device: intel 8ele 88-bit i/o oort, ic 4S 
connections: 
Suns pon pO SpeOnee (a101°:8)) = db(1:8) 
SenGeno OI eel Op oy lip lore) Cdo(128)) = ~«145012:8) 
mee «3re req 
Sum .-e "(ns) = +5¥ 
Simo 11 (stb) = 3nd 
pin 1 (dsiebar) = wre-bdar 
Diino CdeeJel=— Gut cand. (decode a(0:7) value 18) 
pin e4 (vec) = +#+5v 
Sime le (oqd) = gnd 
condition=mode outout interface hardware to issue 
syaqmal: x153 
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device: intel 82le 8=bit i/o oort, ic 46 
Gomnections: 

SMS oytonme toy bo, e0,ce (Cdi(13:8)) = dpb (l:4) 
DINS HGeS awe 1 Del ts 1 Pec l Cao 8) = a0 ls 5 C14 6 ) 


rif 8&8 are reg 


Beanal : 


ein e (mi) = +5v 
pin 11 (stb) = and 
o1in 1 Cdsiebar) = wredar 
pin 13 (dse) out .and. (decode a(0:7) value 19) 
pin 24 (vec) +Sv 
pin le (91d) = and 
lGmort OUtOutepmort cConposed of two 3 bit oorts 
x1l61 18 for low order byte 
x169 is for high order oyte 
condition=mode outout interface hardware to issue 
x 161 
davirce- imrel Gele 8=bit 170 oort, ic 47 
connections: 
Cams Syoityor lOvls,c9,ec (41(1°58)) = db(138) 
Ooms deo, 5, VO, lor ltivi?rel Cdo(i:8)) = x161¢01:8) 


,if & are reg 


syaqnal: 


0iIn ec (md) = +¢5v 
pra, 1 IC StoO) =o gnd 
0In +1 (Cdsiebar) = wredar 
Bm 15 Cds2) out .and. (decode a(0:7) value 20) 
pin 24 (vec) +5v 
om le Cand) gna 
conditionemode outout interface hardware to issue 
x 169 
device: intel Seite B=bit i/o oort, ic 4B 
connections: 
Sins op opts Fr lOs lS,e07,ec €41(1:8)) = db(l:8) 
SSO ely lon lig it?,el Cdol(l:8)) = x~169 (1:8) 


7if 8 are req 


soma) : 


pin ec (md) = +#5v 
eyo. tl tstbo) = ond 
pin 1 (dslebar) = wrebdar 
Onin 1 St dsec) out eand. (decode a(0:7) value 1) 
para ecu oC yvec) +5v 
Din te (9nd) ona 
bomeyulOUtDO Ut sport conoosed 6f two 8 bit oorts 
x177 15 for low order byte 
x185 is for hign order opbyte 
Cconditionemode outout interface hardware to 1Ssue 
xig? 
devices: intel 8ele Bebit i/o voort, ic 49 
connections: 
Ens Soest, lor, lSscOrec (di(1l:8)) = db(1:8) 
SMiniSm pono pO, loytl?,19¢e1 Cdol(t:8)) = x177 (12:8) 


7i1f 8 are reg 


O0In ec (md) = +#5v 
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pin 11 (stb) = gnd 
Onn 1 €dslebar) = wreoar 
Minuto wlase) = oUt ~and. (decode a(0:/) value ec) 
pam -c4 -Cyece) = +5¥ 
o1m le (and) = gnd 
condition-mode outout interface hardware to issue 
sraomal: x185 
device: wweelmetele S=bit 1760 Sort, ic 50 
connections: 
Sun S. Sp Selon los, eOyee Cai(ls3)) = db(1:8) 
mms Upon Onelos lis lope! Cooll:8)) = «~185(1:8) 
mer GC are reg 
901n +e (n3) = +5v 
om |i Wis tbe = on 7 
pin 1 (dsiebar) = wroar 
Orns Case) Guit-esondescadecode a(0:/)}) value 23) 
Omeame 4 Weve) +5v 
ein le Cand) ain a 
condition node inout interface hardware to sense 
eyvonal “EYCHA 
@Gevyce-iatelwocice & bit 1/0 ocorFtsic 51 
Gommecti01s: 
DINS Sp Dee lon lore 0Urec(d (128) ) = KEYCHAC] 2&8) 
remainder to 


aground 
Pate Oy Ce Oly | 7 ploy Cl adoGls3)) = dotl:8) 
01N e@ (md) = gnd 
Stim. 1) (sto) = gna 


Onime !) COoSl=bar) = ,mot. (decode a(0:/) value 5) 
Snel Sel oSe a=) VNO ..and. doin 
oIn 24 = 4#35¥ 


pin le = gnd 
condition nose inout interface hardware to sense 
signal EYCHA 
deyvce-oiwntel Gele 8 bit 1/0 Sortrvic Se 
connections: 
DINS Spots telo, lOeveOree(d1(92165)) = UKE ViCHALo 416) 
ramainder to 


ground 

ms, Oyo) 0G 15,17,19,elCao(92:16)) = dbd(9:16) 

ou c (md) = and 

oval! (st>) = gad 

o0in 1 (dslebar) = .not. (decode a(8:15) vatue 5) 

One tS eCase) = Vino wand. doin 

91n 24 = +5v 

Sym le = gnd 

fowocroutDput OOrt conmooSed of two 8 bit ports 
¥195 185 for low order byte 
x201 1s for hiah order oyte 
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condition-node outodut interface hardware to 1SSue 
sianal: «193 
device: intel 82ele 88-bit 1/9 port, ic 53 
Connections: 
DINS Sports ty lost 3,c0rec CavG1re8)) “=. d6 C133) 
Sms lomo os 77 19,et Cde(1:8)) = x195(1:8) 
r7if 8&8 are rey 
pin ec (m3) = +#5v 
one lol (St bor Seon 
oin 1 (dslebar) = wrebar 
mime |S disc = out .amd. €decode a(0:7) value e4) 
pin e4 (vec) = +#5v 
pin le (gnd) = gnd 
condition=node outout interface hardware to issue 
eaaimal: xc0l 
device: intel Bele Be-bit i/o ovort, ic 54 
connections: 
OHinsS Se Sete elOrlS,e07ee (3101°38)) = do (1:8) 
ems 475705710, 1ld717719%,e!1 C3d0(12:8)) = x201(1:28) 
-if 8 are req 
9in e (md) = +5v 
on Lie tsto)’ = gna 
orn 1 (dslebar) = wr-oar 
oin 13 (dse) out eand. (decode a(0:7) value 25) 
Onna e 4 -(yvsc) +Sv 
91n le (999d) qand 
condition node tinout interface hardware to sense 
eqrginia) “EYCHA 
Gevuree:vatel Gele 8 Dit 1/60 oort,ic 55 
Cemmecti07s: 
myas 3757 pte lor lSsce0,ec(dai(13:38)) = KEYCHAC1 3:8) 
remainder to 


around 
OD1NS dO ela oy lis leet) (ao 1 3B.) ) = dip-( lesa 
fin 2 (md) = and 


Sin glee (Sto) = gna 
min 1 (dslebar) = .wenot. (decode a(0:7) value 6) 
Sum! $ €Cas2) = tno .and. doin 


Sniee 4 = +5 ¥y 
pin le = aqnd 
Condition node inout interface hardware to sense 
signal KEYCHA 
Sevuce: vate! Sele 8 bit 170 oort,ic S6 
connections: 
SS) Sf Delete lO, lo,e0,ece(dat(9:16)) = KEYCHA(9: 16) 
r@amainder to 


qround 


pins 4,6-8,19,15,17,19,21(do(9:16)) = dod(9:16) 
Siaee (mo) = and 
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1 


e 


signals: x 


,if 8 are 


C 


signals: x 


,if 8 are 


1 


i 


Beagmal: x 


,if 8 are 


C 


997n 11 (sto) = gnd 
91in 1 (dsiebar) = «note. (decode a(8:15) value 6) 
Gum ts (dsc) = ino .and. doin 
Drm cul =) +5V 
Sum le = “quia 
Sot Out out Oonrt cOnoOoOSed of two 8 pit ports 
x°209 is for low order byte 
xel7 is for high order oyte 
onditionemode outout interface hardware to issue 
209 
device: intel Bele S=bit i/f9 oort, ic 57 
connections: 
SimGe ose eoe epee rece C5d1012S8)) = db(1:8) 


sims U7, G,07 Url o,1%-r19%-,e1 (a0(1:8)) x209(1:8) 


req 

Hin 2c (ma) = +5 

pm 11 (sto) = gna 

DIN 1 (€dslebar) = wreoar 

Sime omCase)} s= out .and. (decode a(0:7) value 26) 
opin, e4 (vce) = +5¥v 

Sim le Cond).= grad 
ondition=mnode outout interface hardware to issue 
ele? 

Sevice: ate! G8ele S-bit 179 oort, ic 58 
connections: 

DINS Se oer Oro, bo, cU,ce CayCieG)) = dbp(i:5) 


Pigs edo, 5, Oy lor 17719721 Cao0(1:8) ) Kol? C128) 


rea 
Sim ec €m3) = +5v 
oy 1) (sto) =" on4 
9D1Nn 1 (€dslebar) = wreoar 
pin 15 (ds2) = out wand. (decode a(0:7) value 27) 
era 24 (yee) = +5 ¥ 
Sime le (gang) == "and 
Seo Ve OULOUCMOOrRt CcConoosed of two 8 hit voorts 
x225 18 for low order byte 
x2335 is for high order oyte 
ondition=node outout interface hardware to issue 
eed 
device: intel 82i2 8=-bit i/o oort, ic 59 
connections: 
Eas cio ty fOr to, CcU,ec (01(1°8)) = db(1:8) 


DINS To ae | Sells Looe | (Jo(1:8)) x225(125) 


re? 
pin ec (nj) = +5v 
Bin 11 (sto) = ond 
91n 1 (dsiebar) = wreoar 
oin 13 (dse) = out wand. (decode a(0:7) value 23) 
Oia 24 (vec) = +5y 
Migure (a7d) = gna 
ondition=mode output interface hardware to issue 
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Emromal =? xc55 
Gevices svmeeleecle S=bit 170 port, ic 60 
Gonnections: 
DINS Boe ee ower, COC Gaels od). = sowie 8) 
MAS ome oglt s,s 1 9yel €400138)) = «253(1238) 
z7if 8 are reg 
pine ¢ C€nd) = +5¥ 
orm. li (stb) = i9gn9 
o1n 1 Cdslebar) = wredar 
pin 15 Cdse) out .and. (decode 3(0:7) value 29) 
91m 24 (vec) +5v 
Sim. be aGaqd) gngJ 
Hemevteouteu. "eortsconoosed of two 8 bit ports 
xc4i is for low order byte 
“x°e49 18 for high order ovyte 
condition=mode outout interface hardware to issue 
signal: xe4l 
device: intel 8212 febit i/o port, ic ol 
Gemnec tions ¢ 
Pun SMop opty ploy o,c0,ce (di(1:S)) = db(1:8) 
Sls Os oO yt Selig laee!t Cdol(l:8)) = xe2@4i(1:8) 
,if 8 are req 
ola eculma) = +5¥V 
eum Lley(stb) = ond 
oin 1 (dslebar) = wrebdar 
pin 13 (dse) = out wand. Cdecode al(0:7) value 30) 
Sie ed (vce) <=) +54 
Sinele stand) = and 
condition=smode outout interface hardware to issue 
siaqnal: x249 
device mmimuele sete S=b1t 170 oort, ic 62 
connections: 
SNSm ona op lO, )o,c0,cec (3101°:8)) = dbo 1:8) 
DINS lot Oy 1 Se ip 1 Ope | Caoel:8)) = xeag9(l:s) 
rif & are rey 
Sine ec (Oma) = tov 
pin 11 (stb) = qnd 
on 1 Q€dslebar) = wrebar 
Sino CGSc = Out Land. (decode al0:7) value 31) 
o01n 24 (vec) +5v 
eum ole (aad) qnd 
[etn OoULTo yc oort —conTDpOoSed of two 8 bit ports 
x257 318 for low order byte 
x265 18 for hiah order byte 
condition=mode outout interface hardware to issue 
Samat: xc5Si 
Hevaces imei ocla S=bit 3/5 Sort, ic 653 
connections: 
Sisco te te Ort oegeU,ee €4d71(138)) = db(1:3) 
Simismeesoeg bel, lo, lip tee, e ! (€d0(138)) = xe57(128) 
7if 8 are req 
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e 


Sianal: x 


mit 8S are 


1 


C 


sxanal: x 


,if & are 


Cc 


signal: x 


7if 8 are 


1 


OIn @ (md) = +5v 

on bi (stb) = 9n7 

pin 1 (dslebar) = wreoar 

Sic loeecicoe ie = Oue cand. (decode a(0:7) value 32) 
Sim 24 “Guvce )is= +5 

Gimp le eCand) =. 9n3 

ondition=node outout interface hardware to issue 
265 

Sevice: wmtemweoeclec S=bit 170 oort, ic 64 
connections: 

SamS oy Seo loOrts,ecOree €d10138)) = db(1:8) 


DMS apoyo lo, toy l?s19,ec1 (a0(1:8)) MeO lecee) 


rea 
oim c (ma? = +5¥ 
Om 11 Cstb) = ond 
oin 1 (dsivrbar) = wreoar 
Sips s0diGed. = out «and. Cdecode a(03:7) value 33) 
Bim c4aeGyce)) 2 ot5y 
pin le (qnd) = gna 
Spoil te OUTOUCH port —conposedc of two @ dit oorts 

x275 is for low order byte 

x°81 185 for high order odyte 
Oondition=mode outout interface hardware to issue 
273 
device: intel Geile S8=bit 1/70 ocort, ic 65 
connections: 
Sims ose se tO, a,eUrnrce €Cdi1(i:38)) = db(1:8) 


Simsceevorop Os, lo,t%/,197e1 (doll:8)) Ke ol. ©) 


Ee9 

om elmo) = 4+5¥ 

paige LluCstbh) = gna 

OoOin 1 (dsilebar) = wredar 

oin 13 (ds2e) = out wand. (decode a(0:/7) value 34) 
Ole c4 (vec) = +oy 

Olmmle Cand) = snd 
onditionemode outout interface hardware to issue 
281 

Jevree ate sele S=bit 1/6 ocort, ic 66 
Gomnect )oms 

DINS Spo pop! 6, 13,c0%7 ee Ca iCr ee )) = dan € 128) 


Sins 4 sO, op toe lo, its l9,e!) Cdoll:8)) xoOoLrels 6) 


req 
om ec (mo) = +5¥ 
om Lb oCstbh) = oad 
pin 1 (dsiwebar) = wre-bdar 
pin 15 (ds2) = out wand. (decode a(03:7) value 45) 
Ona c4 (vee) = +5¥ 
oIin le (end) = gn 
CONC NOUCOULDOrt cotTloosed of two 8&8 bit ports 
x°89 1s for low order byte 
x297 is for high order odyte 


ew) 





conditione=node outout interface hardware to 1S8sue 
signal: x289 
teavrce eimtere tele S=bIit 170 Cort, ic 67 
GOoqnec t ons. 
Sins espa ee lor leo,e0,ee (d101:28)) = db (1:8) 
OINS Gop sll lop Lig 1 Sac) Cdocl: 5 )) =2uxec89C)]: 8) 
zif 8% are rea 
pin e@ (md) = +5v 
sim lb (ste o29= ond 
D1Nn 1 (dsiwebar) = wr-vdar 
Sia > Gdige)) = oUt .and. (€CAaecode a(03:/7) value 436) 
ein fed wy ee) = 4 5y 
Oia le sConid) -- and 
condition=mode output interface hardware to issue 
signal: x29/7 
qeavice:s simuel Sele G-bit i760 Gort, it 68 
Gonnect ions: 
Sins opome eon ros, |o,e0r,ee €4101358)) = db(1:8) 
Sims 4pono, 10,15717-19,21 (Cdoli:8)) = x2e97(1:8) 
rif & are req 
pin e (md) = +5v 
ome 1) €stb) = gng 
91Nn 1 C€dslebar) = wrebar 
Shine of Cdise ) out .and. (decode a(U:7) value 437) 
pin e4 (yec) +5v 
Sloe beotond) ania 
[Isso rtouLtoOuULNoortconoosea of two 8 bit voorts 
x305 is for low order byte 
x515 1s for high order oyte 
condition=mode outout interface hardware to issue 
siqnal: x305 
device: intel 8212 38-bit i170 oort, ic 69 
connections? 
Dias) Ovloe ls 2p lor los,eO,ee (31(1:3:8)) = db(138) 
Sse op oops se lor,elwicdo(i:8)) = ~$05(1:8) 
-if 8 are req 
pin e@ (md) = +5v 
] 
l 


Din. | (stb) = gnd 


D1Nn (dsl-bar) = wre-bdar 

Sigmloeese) = out sand. Cdtecode a(0:7) value 58) 
pin ec4 (vce) = +5v 

Sig 12 (ana) = ond 


condition=mode outout interface hardware to issue 

eeeamal: x 313 

device: intel 8212 88-bit i170 voort, ic 70 

Gomnections: 

Seas oy sbi eee lori SveOree Cai01:38)) = db(1:8) 

SoS 4 popes lon lis )o,e1 Ca0€)2:8)) = ~ 531350128) 
7if 8 are req 

oan §c (mia) = +5¥ 

iy ti Csth)} = ant 


Sa 





Sonal : 


Sym | COS l=bar) = wr=bdar 
Oinm 15 Case) Guismeanade (secode a(l0:/) value 39) 
nim -e 4G vec) +5v 
pin le (and) = gnd 
Momont output Port cConposed of two 3 bit ports 
x321 18 for low order byte 
x329 is for hiah order ovyte 
condition=mode outout interface hardware to issue 
x 5? 1 
device: intel 8212 B=bit i/o oort, ic 71 
connections: 
Sins Sous te eo) GOpeO, cer (d101s0)) = dbtl1:8) 
SNSmty ops Oe lo i sl oe el 4 dol(1t8)) = x$21(138) 


,if 8 are reg 


sianal: 


om. ec (ngs +5¥ 

opin 11 (sto) = gnd 

DIN 1 (dslebar) = wrebar 

pel omeeace y= oUt) .amad. (decode a(0:7) value 40) 

Din 24 (vec) = +5v 

Sime te Wong) =.9na 
condition=mode outout interface hardware to issue 
x 329 

dice. uimueleoete o=bYt 179 port, ic 7e 

Commect ons. 

DINS Sa Orley cOg,ee Cdivg so). ) = db (1.8) 

Sms oO, o, tl Uy lost /,19,¢c1 (dell:8)) = x329(1:8) 


,if 8 are req 


Signals: 


p1n e (md) = +5v 
emieoe | leeCS tb) >= ona 
opin 1 (dsiebar) = wreoar 
om 5S tdse) out eand. (decode al0:7) value 41) 
pin 24 (vec) +Sv 
Ome ging) gna 
Lom Gn OUeCULNOOTrtmCOTOCSES Of tWo S bit ports 
*x337 18 for low order byte 
x345 is for high order oyte 
condition=mode outout interface hardware to issue 
x 337 
device: intel 8212 B-bdit 1/79 port, ic 73 
Gonmections - 
PEN Sos D7 (ety lO, li oyecU,ece (31 (ean) = db(1:8) 
sins 49,5,3,10,15-17-19,¢e1 (340(1328)) = ~337(6138) 


rif 8 are reg 


signal: 


pin 2 (ma) = +5v 
pin 11 (stb) = gnd 
D1 1 (dsiwebar) = wrebar 


onl 5 CdSe m= wout .and. (decode 4(0:7) value 42) 
So etl yvec) = +5y 
pin le (and) = gnd 

condition-mode outout interface hardware to issue 

x $45 


oe 





@evyice: sinter! Sele Bebit 170 oort, ic 74 
connections: 
DINS aoe 7, 16, 1 3,c0,ce CaO bso) = ab Cl 28) 
pas miooeOy log lic l?@,el €Cdo(13:8)) = ~345(1:8) 
rif &® are req 
0in e (md) = +#5v 
mum lle stb) = gna 
DIN 1 (dslebar) = wrebdar 
pin 15 (dse) = out .ande. (decode al(03:7) value 43) 
Spmwce 4a (Voc) +5v 
Sim ste Cand) and 
lemon t SOU emp eE DORE conoosed of two 8 bit vorts 
x353 is for low order byte 
x361 is for high order odyte 
condition=node outout interface hardware to issue 
eranat: x353 
device: intel 82le Bebit i/o oorts, ic 75 
connections: 
SiS 65) 557927 lOslo,e0,ce (31(1:8)) = db(1:8) 
DINS Y,579,10-15-17,19,¢e1 (ao0t1:8)) = x59 5125) 
mr GO are reg 
0In e (md) = +5 
oyn- 1 €sto) = gad 
pin 1 (dslebar) = wrepdar 
o9nmn 13 (ds2) = out wand. (decode al(0:7) value 44) 
orn e@4 (yec) = +#+5v 
Sygate ICo30) = "and 
conditionensde outout interface hardware to issue 
Beramal: x 361 
devices intel 82le Bebit 1/75 oort, ic 76 
connections: 
OINS S571 79;7 16510, 20rce (31(01:28)) Syodio (ino 38) 
Sn Sees os, toe y + 19,e) Cao(12:8)) = x$61012:8) 
-if 838 are reg 
o0in e (md) = +5v 
019 11 (stb) = gnd 
o01n | (dsilebar) = wrebdar 
091n 135 (ds2) = out «and. (decode a(0:7) value 45) 
iigue July se = +5y 
pine le Gand) = gna 
Condition note inout interface hardware to sense 
sional KEYCHA 
Gevrecsintelmoclie 8 bit 1760 oort,1¢ /7 
connections: 
pDINS 373971797 16718,2e0,ee(di(1:8)) =arce PCR A 4 3) 
remainder to 


ground 
Sicm voy oe 10, 1 ie lO, ek doll:8)) = dol1:8) 
o1n ec (md) = gnd 
Dime Sto) = ONG 
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Spm Casi=barl- «not. (decode a(03/) value 7) 
eu 15 (dS$2) = indo .and. doin 

Doin 24 = +#5v 

am le = gad 


fsondition note input interface hardware to sense 
Sianmal KEYCHA 

@Gewrcecimvetwectic 8 bit 170 oort,i1¢c 78 

GommectvO1s. 


OMinS 5) ote 7, to, lo, c0,22(di(9:16)) = KEYCHA(9: 16) 


remainder to 


ground 


1 


signals: x 


7if & are 


CG 
si:qnal: x 


pit 8 are 


1 


Sms 4, Ovo, loyl?,19,el(do(92:16)) = db(9:16) 
pin e2@ (md) = and 
oin it (sto) = gnd 


Sime lecosl=bag)7= snot. Cdecode a(8:15) value 7) 
91in 13 (€dse) = ino wand. ddin 
pin 24 = +5v 


Dim Let= ond 
6 Dit SUtOUC port conoosed of two 8 bit ports 
moO y WSeator, |Ow order byte 
x$77 158 for hign order byte 
ondition=mode outout interface hardware to issue 
369 
device: intel 82ele B-bit i7fo oorts, ic 79 
connections: 
SS Soe te toy Se eUr,ce Ca1(0138)) = Jo(138) 
DINS dj, ops, | 571i +1 oec l GCgeovlr8)) = xs69(CI?S) 
req 
o01in ee (md) = +5v 
erm tl (stb) = and 
o01in 1 (dsiewbar) = wrevdar 
oinm 13 (Cds2e) = out .and. (decode a(0:7) value 46) 
Sigec4d (vec) = +t5¥ 
Silpele mca id) = ond 
ondition=mode outout interface hardware to issue 
Si 
Jevice: intel 82ele B=bit i/o oort, ic 80 
connections: 
DINS Sorte, 16,18 eOs ec Cais) ) = ab (12:8) 
Smcaeor, oy Onl oy) ?r19,e)1 Ca0o(1:8)) = «3770128) 
req 
onim = ec (ms) = 6+ 
eam ll (sto) = gna 
o01in 1 (dsliebar) = wredar 
Sino (ase) = out sand. Cdecode al0:7) value 47) 
oin 24 (vec) = +t5v 
pe te Canad) = ana 
Seertmoutout Oort composed of two 6 bit ports 
x385 is for low order byte 
«593 is for high order oyte 
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Eemaition=mode outout 


signal: x 


mut oO are 


siaqnal: x 


385 
device: intel 
connections: 


interface hardware to 1S8Ssue 
Seite f8=D1t 1/0 oort, ic 31 
DINnS Dome lop te, cO,ec Cane 6 en = “mols 8 ) 


ons Woy Op lose ll rl Fs cl 


Col s5))) = «385 (1:8) 


req 
Sin <« (md) +Sv 
sin il (stb) = ond 
oin 1 (dsiwbar) = wrebar 
om 15 (05-2) = out .and. (decode a(0:/) value 4A) 
ein e4) Cyec)) = +5 v 
pam le CangJe=—agnd 
conditione=mode outout interface hardware to issue 
393 
device: imte! Sele S=bit 1/0 oort, ic 8e 
connections: 
DINS Soa) olloy oy Cc U,ec Cay 5) = dbl: 8) 


pit 8 are 


bomb tt oUtoUut. port 


Syanal: x 


DINS oe oe, bor lis 19,1 


Gaol 8) ) =. «5950136 ) 


req 

Sun - ec “Cmna) +Sv 

en ll isto) = gnJd 

DIN 1 (dsilebar) = wrebdar 

pin 13 (ds2) = out wand. (decode a(Q0:7) value 49) 
orn e4de(vec) = +5v 

o1in le (aqnd) = gnd 


conoosed of two 8 bit ports 


x401 is for low order byte 
x409 318 for high order oyte 
conditionemode output interface hardware to issue 
401 
device. imuevocetie S8=bit 175 cort, ic 83 
connections: 
DINS Seo poles | or cU rec Cael ss))) = docl!:3) 


,if 8 are 


Cc 
Siromal: x 


,if 8 are 


DINS Ors op Ol, ] Sel’ oe oe cc 1 


Csoclsa)) = ~401(1 28) 


req 

p91n +e (mq) +5Sv 

aim it (stb) = ghd 

oin 1 (dsiebar) = wrebar 

pin 13 (ds2) = out .and. (decode a(9:7) value 50) 
pin 24 (vec) = +#+5v 

pom le A gind) “=. ond 
onditionemode output interface hardware to 1ssue 
409 

device: intel 8212 8-ebit i/o voort, ic 384 

Goamnect ions: 

Pico ss aor owe ne oree (a1(1:8)) = db(1:3) 


DINS oma Og | S57 177197 el 


req 
01n 2 (mI) 
pam 1). (sto) 


Gieviec)) = «<t09 (1:8) 


tov 
= gnJ 


i> 





$19nal: 


pin 1 (dsiebar) = wrebar 
pin 13 (€dse) = out wand. (decode al0:7) value 51) 
pin 24 (vec) = +5v 
opin le (and) = ang 
lomoyt OUtToUtmOorteconposed of two 8 bit voorts 
x417 15 for low order byte 
x425 18 for hiah order pdyte 
condition=mode outout interface hardware to issue 
x417 
Seyvirces inte socle 8=bit 170 oort, ic 85 
connections: 
DINS Soe teow to, e0,ee Ca) 0128)) = dbli:8) 
ams “ote Oto, fy, 1 9,e!) Cdoliz8)) = x417012:8) 


,if 8 are reg 


signal: 


01n +e (mda) = +5v 
pam 1! €stby = ond 
pin 1 (dstebar) = wreoar 
pin 13 (dse) out eand. (decode a(03:7) value 5c) 
pin 24 (vec) +5v 
o1in le (gnd) anid 
condition=mode outout interface hardware to issue 
x425 
device: intel] 821e 8B=bit i/o port, ic 86 
Connections: 
Sins poy 07s 7, lO, 1 S,c0mMe2e (31(1°28)) = dbd(1:8) 
SMS Ooo Oy lol), 89, e1 €40(1:8)) = x425(1:3) 


rif 8 are reg 


siqnal: 


pin e (md) = +5v 
pin 11 (stb) = and 
o0in 1 (dsirbar) = wre-dar 
oon bo Case ) Out .and. (decode a(0:/7) value 55) 
Sime c4 (yec) +5 
jim le Cond) gnd 
HOmOt OUTDO UtTEOOrt cOonoOoSed of two 8 o1t ports 
x435 1s for low order byte 
x441 18 for high order odyte 
condition-mode outout interface hardware to issue 
x4 33 
device: intel @82le B-bit i/o oort, ic 87 
eonmmec t VOns $ 
SrnsSo os) 5o7'7%7lO,13,c0r,ee (31(128)) = do(1:8) 
D1INS Seog Ogi oy | ey boy cl G@daC!l:8)) = ~455(1:8) 


if 8 are reg 


siqnal: 


01nN +e (mda) = +5v 

eam 11 (stb) = ond 

O1Nn 1 €dsitebar) = wreoar 

Sil osedsc m= Out .and. (decode a(0:/7) value 54) 

Giugres (vee) = +5¥ 

Siomele (gad) = gn 
conditionsmode outout interface hardware to issue 
x44 1 
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Gevice: intel Sele S-bit 170 port, ic 88 

eonnect ions. 

Sins Seo lo, lo,c0,cece (Cdwe(l:8)) = db(1:8) 
DINS ops, lonl ls i See l (Jo. Gls 6) = 14410123) 


,if 8&8 are req 


eranal $ 


pin ec (md) = +5v 
ein il (sto) = and 
oin 1 (dsiwebar) = wroar 
oin 13 (dse) Sut wnomnoes( cecode at(0: 7) value 55) 
pin 24 (vec) +5v 
pin le (999d) ana 
Pomolt output port sonposed of two & bit oorts 
x449 15 for low order byte 
x457 is for high order oyte 
condition=mode outout interface hardware to 1Ssue 
x449 
devivieeswinte ll oete S=bit 1/0 port, ic 89 
connections: 
DINS Seer or ops ee Ur ce Can Clee) = dol 4) 
DINS GO oe Oeil ls 9 epel Gaol. o) ) = “4491-8 ) 


,if B® are rea 


Sana | $ 


pin e@ (md) = +5 

erm li €sto) = gnd 

Otn 1 (dsi-bar) = wre-bar 

pal omease) = OUtj sand. Cdeécode a(0:/) value 56) 

Nocera (vec) = 

pin le (and) = gnd 
condition=mode outout Interface hardware to issue 
x 457 

wewice  wigte lw oele  orb1t 1/50 oort, ic 90 
connections: 

Since oor poor bo, cOvee C410138)) = db(i:8) 

SN NSw lope, Sel? yl e?,et C€do(1:8)) = x45/7(01:8) 


mer Oo are rey 


eaoaal : 


Dina oc 16mg) = +5V 
ern 11 -Gsto) = gad 
Oin 1 (dsliwbar) = wrevoar 
Sim 15 (dse) out eand. (decode a(0:7) value 57) 
pin 24. (vec) tSv 
Sia le Cand) gn 
tomer oltoutmoort.conoosed of two 8 bit ports 
x465 1s for low order byte 
x473 18 for high order oyte 
condition=mode outout interface hardware to issue 
x 465 
dev veces tmueve cele S=-bit 170 Sort, ic 91 
connections: 
DIAS So fo elo, io, e0vec CGainci- ay) = dbl: 8) 
Duis, Oy ol O, lo, li, igre! (doll:8)) = ~«465(1:8) 


7if 8 are req 


pin ec (mdi) = +5v 


lees 





Sonal: 


Sym lt. (sth = and 

o01in 1 (dsiw-bar) = wrebdar 

Minit omGdseie = out ~.and. (decode a(0:7) value 58) 

Sym co tegec) ' =) +9V 

oin le (g.xd) = gnd 
condition=-mode outout interface hardware to issue 
x47 3 

qeviece: vate! Gelte S8=-bit 1750 oort, tc 92 

Gommect ons; 

PS Gos Heo, lO,o, ecUr,ee (4a1(128)) = db(1:8) 

Sms spores POU, lop l7r19,e!1 (Cto(138)) = x473(1:8) 


71f 8 are req 


Eecinal : 


pina. < —Umnd) = +5¥ 
ayn tl (stb) =-Gqn3 
o1n 1 Cdstebar) = wre-oar 
pia 15 (dse) out .and. (decode a(0:7) value 59) 
Din 24 (vec) +Sv 
pin te (qnd) = and 
tome ne DSUtput s@orer Conposed of two & bit ports 
x48i 18 for low order byte 
Mu Tse Toren i an OFder “dyte 
condition=mode outout interface hardware to 1ssue 
x 4B 
device: intel 82le B-bit i/o port, ic 93 
Gonmect ions: 
EMVincteom os lO lo ,e0,ee C€410158)) = db(1:3:8) 
DINS doi lO lop) pe och (do(1i3:8)) = x 4b) Cl. 6) 


-if & are reg 


earaina) : 


Bia e -Uma) = 45¥V 
Sra ll CStb) “= Gnd 
opin 1! (dsiw-bar) = wre-bdar 
Biol 5) Case) out .and. (decode a(0:7) value 60) 
pin 24 (vec) +Sv 
pin t2 (gard) gnd 
condition=-mode outout interface hardware to issue 
x 489 
devices: intel 82le2 8-bit i/o port, ic 94 
connections: 
Sins op set eer topls,ec0r,ee (4101°8)) = db(1:8) 
Snsees opp vbonpltirvi9,e1 C€dolis8)) = x~489(1:86) 


,if 8 are reg 


pin e (md) = +#5v 
eam 11 (sto) = gnd 
pin 1 (dsiewebar) = wrebdar 
sim 5 Cdse) Otterandemtniecoge a(0:/) value 61) 
pin e@& (vec) +5v 
pin le (gna) gna 
Pompe oUtDut Gort CONDOSEed Of two 8 bit ports 
x497 15 for low order byte 
¥505 18 for hiah order oyte 
condition=mode outpnut interface hardware to issue 


a8 





signal: x49/7 
Gevices Vmtel oele 8=bit 170 dort, ic 95 
connections: 
DSO se eeopl ose U,ee C4d1(128)) = db(13:3) 
Bea SueOwoe ce opto, t?’,19,ec1 Cdo(1:3)) = ~497(1:8) 
rif 8 are rey 
Sm se Sme = = + OV 
pin Il Cstb) = gnd 
oin 1 (dslebar) = wredar 
pin 13 (dse) = out .and. (decode a(0:/7) value 62) 
One cde (vice) = §toV 
Bon) be ace ad) eam an 4 
condition=mode outout interface hardware to issue 
exagnmal: xS05 
Jevice: intel Bele Sebit 170 oort, ic 96 
connections: 
SNS ea Se e  f Oe lope ree 6070128) ) = db (1:8) 
Pnometos ee Ono, lis tore CJo0158)) = x~505(128) 
,if 8&8 are reg 
Soe. mad) = tov 
oie ll <Ssto) = and 
oin 1 (dsitwbar) = wreoar 
pin 13 (dse) out ~and. (decode a(0:7) value 63) 
pin ed (vec) +5Sv 
Din le (gq) nd 
loot sutout Dort conmoosed of two 8 dit ports 
Yolo sS et Oc iiow order byte 
xS2l is for hiah order obyte 
condition=mode outdut Interface hardware to 18Sue 
ssramals: x13 
gevieeswintelwocle S=bit 175 oort, ic 97 
Connect tons: 
Sinscon sono, lo,e 0, ce CA1(138)) = db(1:8) 
Sesion ome gt oy tio boy,e) €a0(1°28)) = x513C124) 
mir) 6OlCarre 6regq 
Dim ec (md) = +5¥v 
pin 11 (stb) = gnd 
oin 1 (dsiebar) = wrebar 
o1n 13 (dse) = out wand. (decode a(0:7) value 64) 
oe c4 (vse) = +5 
oe te Cand) = and 
condition=mode outout interface hardware to issue 
Sranal: xe 
gevice +: imtel oele B-bit i7o port, ic 9&8 
connections: 
Dinca selon lo,ce0,ce (d10}38)) = dbtl:8) 
Simson o, ee, lO, lor li sl 9r,c!l Cdoli:8)) = x«Sei1(i:4&) 
,if 8 are rea 
Oim ¢ (mg) = +5v 
Omaevi  Cstb) = 9nd 
pin 1 (dslebar) = wrendar 
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ain +5 €dse) Sut eand. (decode a(0;:7) value 65) 
Dim e+ Cyec) +5v 
Sim le (4n3) and 
condition node inout interface hardware to sense 
siaqanal <EYCHA 
Geypeetintelwoecle 8 Dit 170 Cort, ic 99 
connections: 
nso, Sey owe, CO,ece(ai(1l3:8)) = KEYCHAC 1:8) 
remainder to 


around 
SeniGee Ges Glos lo, te 197 el Cao(12:8)) = do (1:8) 
Om c (nd)ye= and 
ain 1 | €st>) =.0nd 
ima | Cdismeebparl = smot. (decode a(0:7) value 8) 
om 15 Case) = ino cand. doin 
pin @e4 = +#5Vv 
Sim le = ond 
condition node input interface hardware to sense 
Siroma)l KEYCHA 
demeesimte) Gele fA bit 1/0 oortsric 100 
connections: 
DINS Sy Osos kOe loc 0scc (di (9:16)) = KEY CRa( 9: 16) 
remainder to 


ground 
DINS Vp eOmeewe 0, 15,17, 1\9pel(jo(9: 16) ) = dp( 9250 
Same = tind) = and 
Sime tl €St5) = ond 
oin 1 (dslebar) = .not. (decode a(8:15) value 8) 
Sevres Case) = no .and.s doin 
sin e4 = +5 
Sioa te = oAG 
Lo@woit otcOUtmDOrtrconOOse®d Of two 6 bit ports 
x529 1s for low order byte 
xo5/ is for AIGA order oyte 
condition=mode outout interface nardware to issue 
eapamal: x52e9 
device: intel 8212 8endit i/o port, ic 101 
connections: 
DINS Sot LO pl ope Orece Care o))) = ab C138) 
Sno Tos Oe Or bos) ir lore! €(doll:8)) = x52e9 0128) 
7if 8 are reg 
mime 2c €md) = +5y 
Bim bie(sto) = ond 
pin 1 (dslebar) = wreoar 
om 1s Case) Outmean dens decode af(0:7) value 66) 
sme 4. (yee) +Sv 
pin le (gnd) qgnqd 
conditionemodge outout interface hardware to issue 
samai: x55/ 


6h 
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gevveectwumter Gele 8=bit 1/9 oort, ic 102 
connections: 
DINS Spee 9,7 lO, 1 3,7C0rce Garr 2t600--= “ab C123) 
nSmoroeoos lop l ’ el 9¢el Cdo(1:8)) = ~5357(1:8) 
mit 6 are req 
aio °c €nd) = +5V 
opin it (stb) = gnd 
oin 1 (dstiebar) = wreoar 
Sines (dsc) OUt once decode a(0:/) value 67) 
pin 24 (vec) +5v 
evn ie Cand) aid 
condition node inout interface hardware to sense 
siaqnal *EYCHA 
deviceszintel 82le 8 bit 1/fo oort,ic 103 
Commect vos . 
Sms Spay, te loetoreU,ec(di1(13:38)) = KEYCHA(1:86) 
remainder to 


ground 
SG omae Slip 19, el(do(ls8)) = do(1:8) 
pin e (md) = gnd 
emg) Cstoy = gnd 
Set Coslebari = .not. (decode a(0:7) value 9) 
one | Se Gds2) = ine «and. doin 
Doin e4 = +#dv 
p3in 12 = qnd 
condition node inout interface hardware to sense 
eercinal “EYCHA 
Geyvicesymteleoele 8 Sit 1750 ocortri¢c 104 
connections: 
Sensuoe or poe lloeloOrelr,ce(a1(93:16)) = KEYCHA(C9:16) 
remainder to 


ground 
MSO Meo oly bone) (p01 9s 16).) = db(9:15) 
o01n ec (md) = gnd 
Sim il Cato) = ond 


Specs)! =oef) = smot. Caecode a(8:15) value 9) 
Simo 1s €3Ss2) = ind «and. doin 
o0in e4Y = 4+5y 


Sine le = ane 
condition node inout interface hardware to sense 
s1aqanal EYCHA 
deviceszintel 8212 8 vit i/o oort,ic 105 
connections: 
ES y poo, lone O,ec(G10138)) = KEYCHA(1:8) 
remainder to 


ground 


SMS Oro, lO, lo, lig 1 SeclCao(l338)) = do(i:8) 
D91in ec (md) = and 
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om tl €sto))= and 
oin 1 (dsiebar) = .~.not. (decode a(03:7) value 10) 
Sipe set seu = THO wand. doin 
o9n eds +5¥ 
Ooin le = aad 
condition node inout interface hardware to sense 
eamal KEYCHA 
devices inte! Sete 8 bit 170 Oort,ic 106 
connections: 
Sins Toop tonto, ecOU,ec(di(9:16)) = KEYCHAC9:16) 
remainder to 


ground 
DINS MoOgicnto elo, ts, 19421 ( 3009316) ) = db(9: 16) 
pin e@ (md) = and 


orn Lt (sto) = gna 
pin 1 (dsliebar) = .not. (decode a(8:15) value 10) 
me 1s (ase) ="1nd .and. doin 


Sime cd = +5 
931n le = and 
condition node inout interface hardware to sense 
signal MANPOS 
dewice- inte leoere & bit.170 oort,ic 107 
connections: 
Sims os dp? 7 97 16, 18,20,e2(di(1:8)) = MANPOS(1:8) 
remainder to 


ground 
Sins soup log ) 1, | 9D,el{do(l:8)) =a040 Glo) 
o1n e@ (md) = gnd 
Simei st >) 2 = “anid 
919 1 (dsiebar) = .not. (decode al(0:7) value 11) 
Sige ome ds2 a= 1hO .and. doin 
Sipe 4 = 5 
991N le = and 
condition node inout interface hardware to sense 
signal MANPOS 
Geviucesimte:rsGcele 8 bit 170 Gortsic 108 
Geom pvect ons: 
Sygs 5759) 9 7717 1G,e0,ce(d109316)) = WMANPOS(9:316) 
remainder to 


ground 
Bams  4,0,5910,15,17,19,e1(do(9:16)) = dbo(9315) 
oim e€ (md) = ond 
eum) 1 1) CUSto) = ond 


o9in t (dstebar) = .~not. (decode a(38:15) value 11) 
Saget Ss. (dS2) N=. imp cand. doin 

Sim. ed = +5¥ 

Siineele = ghd 


condition node inout interface hardware to sense 


oe 





signal KEYCHA 
Gdexrace:imtelmeecete Go bit 170 s0rtric 109 
connections: 
Sens Ss eo orc U,ec(di(l:8)) = KEYCHA(1:8&) 
remainder to 


ground 
ons UsO7 on tee boy lis i 9¢ecllado(lse)) = doli:3) 
Sin ¢ (mda) = gad 


orm, li (sto) = ond 
Snel last-paroe = .not. (decode a(0:7) value i2) 
OMe CdSe) Sine and. doin 


oam cud = +54 
91n le = gnd 
condition node inout interface hardware to sense 
sianal XEYCHA 
deyvivcesimtel Sele 8 bit 1/0 Sort;ic 110 
connections? 
DIAS 375-7 49716,18,20,eel(di(9:16) ) =~ KEY CHAT I= 16) 
remainder to 


qgroun) 
DINS rope pt Ug sy 1171 9e ec] (do( 9216) ) = Cb U9? lib») 
armeeo Cm) = cand 
Siew (St5)) = “9nd 


91n | (dslehar) = .not. (decode al(8:15) value 12) 
Sims 1S (ase) = inp .and. doin 
91m e€4 = +5v 


Sin ic =" onc 
Lomo oUt It mpoert  conposed. of two 5 bit ports 
x545 is for low order byte 
*553 1s for high order pvpyte 
conditionenode outout interface hardware to 1Ssue 
suanal: x 545 
Sew ces “Imtelmocle S=bit 1/0 Dorts, ic 111 
connections: 
DINS $,57749,16,18,20-2ee Gane a) )- = JdbCi:38) 
Mims ov ome Owl oy lie le,ec) €doll:8)) = x545(1:8) 
vif 8 are reg 


pin 2 (md) = +5v 
oa 11 8CStb) = =sqn4 
O1Nn 1 (dslebar) = wreoar 


01n 13 (dse) = out .-and. (decode 2(0:7) value 68) 

om 24 (vec) )s +5¥ 

Haim le. (aqgd) = and 
condition=mode outout interface hardware to issue 

Semanal: x55 3 

device>s imtew 8e2ie S=—bit 170 oort, ic 11e 
connections: 

SMS ota, pl oO, lo pecou,pec C1 C128)) = dbli:8) 

Sin GmonOoy 7 NO, alia ivee) Cdo(i:8)) = ~«553(01:8) 


VSS 





if 8 are reg 


s$1qgnal 


ground 


pn 
pin 
pin 
an 
O1Nn 
DIN 


e 
et 
l 
13 
e4 
ee 


Gong) tion 


KEYCHA 


(m3) = +5v 

CStpJ= "ona 

(dslwenbar) = wreoar 

(ds2) = out .and. (tecode al0:7) value 69) 
CVee) 9=. 7 5V 

CoNG)}'F=--9ond 

node input interface hardware to sense 


gevyoe.inte! Geie Gb DbDIt 170 oort,ic 113 


connections: 
mses, Soy Oye U,ee (ai (1235)) = KEYCHA(1:8) 


remainder to 


Das oO openly 17, 19r,e1Cdoll:8)) = dol1:8) 
pin ¢ (mo). = ond 


DIN 
Sri 
O01Nn 
DIN 
Ban 


11 


( 


Sto) t= gnd 


1 (dslebar) = .not. (decode a(0:/) value 13) 
boat dasSe) = mo .and. ddsin 


24 
ie 


+5v 
Qna 
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